Threads verstehen...

[Gambit]

OK, habe jetzt mal FreeOnTerminate auf false gesetzt. Dann muss ich ja den Speicher wohl selbst wieder freigeben, oder?

habe das dann hier eingebaut:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
    i, count: Integer;
begin
  Count:= 0;
  memo1.Lines.Clear;
  memo2.Lines.Clear;
  for i:= 0 to 1000 do
  begin
    aCon:= TConThread.Create(false);
    repeat
    until (aCon.ErrCode = 0) or ((aCon.ErrCode <> 0) and (aCon.ErrCode <> -1));
    if (aCon.ErrCode <> 0) and (aCon.ErrCode <> -1) then
    begin
      memo2.Lines.Add(intToStr(aCon.ErrCode));
      count:= count+1;
    end;
    memo1.Lines.Add(intToStr(aCon.ErrCode));
    aCon.Free; // Hier gebe ich den Speicher wieder frei...                             
  end;
  showMessage(intToStr(count));
end;

Wäre das so dann OK?

Gruß

Gambit