RosettaCodeData/Task/Multiple-distinct-objects/Delphi/multiple-distinct-objects-2.delphi

9 lines
163 B
Text
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
var
i: Integer;
lList: TObjectList<TMyObject>;
begin
lList := TObjectList<TMyObject>.Create;
for i := 1 to 10 do
lList.Add(TMyObject.Create);
// ...