Freigeben von Listen durch Threads beschleunigen

[Union]

10-15 ms kannst Du sparen, wenn Du vorberechnete Werte für die Schleifen verwendest:

Delphi-Quellcode:

procedure TMoepManager.Clear1;
var
  i : integer;
  c : Integer;
begin
  c := FList.Count -1;
  for i := 0 to c do
    FList[i].Free;
  FList.Clear;
end;