На главную страницу

procedure DisposeLst(Lst: TList);

procedure DisposeLst(Lst: TList);
var
 i,n: Integer;
 p: Pointer;
begin
 n:=Lst.Count-1;
 for i:=0 to n do
 begin
  p:=Lst[i];
  Dispose(p);
 end;
 Lst.Clear;
end;

На главную страницу