Szybkie notatki administratora

Kasowanie listy

while List.Count > 0 do
begin
TObject(List[List.Count-1]).Free();
List.Delete(List.Count-1);
end;

,

Comments are currently closed.