Thread startet nicht sofort

**zweitakt**

Hallo,

ich habe ein Problem mit meinem Testprogramm. Und zwar wird der Thread erst gestartet nach dem der Prozess, indem ich die Funktion Create aufrufe, beendet wurde. Laut Dokumentaion sollte der Thread aber sofort nach Aufruf von Thread.Resume starten. Hat von euch vielleicht jemand eine Idee?

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TTest.Execute;

begin

  try

    a := 0;

    while (a < 100) do

    begin

      inc(a);

      Form1.Memo1.Lines.Add(IntToStr(a));

      sleep(50);

    end;

  except

    on e: exception do begin

    end;

  end;

end;

procedure TForm1.Button1Click(Sender: TObject);

var wf : DWORD;

begin

  Thread1 := TTest.Create(True);

  Thread1.FreeOnTerminate := True;

  Thread1.Resume;

  sleep(5000);

end;

Thread startet nicht sofort

Thread startet nicht sofort

Forumregeln