programowanie

Kasowanie listy

2012/02/17 pmuch Programowanie

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

delphi, programowanie