Hi
ich habe das Problem das ich in meiner Anwendung auf ein Ereigniss warten muß und mir dieses mit einem BOL Wert signalisieren lasse.
Delphi-Quellcode:
procedure WaitForAnswer;
var timGo:TDateTime;
const WaitAns=5000;
begin
timGo:=GetTickCount;
while (not bolAns) and (GetTickCount-timGo < WaitAns) do begin
Application.ProcessMessages;
end;
end;
Ablauf ist wie folgt...
Delphi-Quellcode:
bolAns:=False;
TakeAction;
WaitForAnswer;
Das doofe ist nur das die CPU voll belastet wird und der Lüfter nach kurzer Zeit anspringt.
Wie macht man sowas eleganter?
Für jeden Tip dankbar,
Frank