Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.031 Beiträge
Delphi 12 Athens
|
AW: TThread Suspend und Resume
15. Sep 2016, 14:03
Delphi-Quellcode:
procedure TmyThreadObject.Execute;
var
E: TmyAction;
begin
while not Terminated do begin
if Actions.Count = 0 then begin
Sleep(1000);
Continue;
end;
E:= Actions[0];
// Do some Code
end;
end;
Ich hoffe Actions ist eine TThreadList?
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
|