Hallo,
also bei mir läuft der Code im Millisekunden-Bereich durch.
Delphi-Quellcode:
uses
Contnrs;
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
L: TObjectList;
O: TObject;
begin
MessageBox(0, 'Start', '', 0);
L:= TObjectList.Create(TRUE);
L.Capacity:= 17000;
for I := 0 to 17000 do begin
O:= TObject.Create;
//O.DoSomething;
L.Add(O);
end;
MessageBox(0, 'Ende', '', 0);
end;
Das DoSomething hatte ich auskommentiert.
Hast du mal ohne Debugger geprüft?