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?
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;