Модератор: Модераторы
uses ..., Contnrs;
...
var
I: Integer;
List: TFPObjectList;
begin
List := TObjectList.Create;
...
for I := 0 to List.Count - 1 do
DoSomething(List[I]);
FreeAndNil(List);
end;
var
Item: TObject;
List: TFPObjectList;
begin
List := TObjectList.Create;
...
for Item in List do
DoSomething(Item);
FreeAndNil(List);
end;
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 12