[ST TPX.EXE
File Edit Search Run Compile Debug Tools Options Window Help
i:byte; begin
with x^ do begin
writeln<ł '!; writeln<a>; writeln<b>; writeln<c>; writeln<d>;
dispose<x> {zwolnienie zarezerwowanej pamięci!
end; end;
begin clrscr;
writeln<memavail>; {sprawdzenie wycieku pamięci poprzez sprawdzenie...! wypelnienie<S>; {... pamięci przed wykonaniem programu!
wyswietlenie<S>;
writeln<memavail>; {oraz po wykonaniu programu, jak widać wycieku nie było! readln; end.
T
!=**== 35:55 =
FI Help F2 Saue F3 Open Alt+F9 Compile F9 Make Alt+F10 Local menu