Online
Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.062 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?
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
|