Forum: Object-Pascal / Delphi-Language
Delphi
by hirnstroem,
7. Apr 2006
Hat sich erledigt, das Problem war, dass sich die Variable LCDanger teilweise zu schnell verändert hat, irgendwie....also mit einer Check Box (anstelle von LCDanger) funktioniert das ganze wider.
Forum: Object-Pascal / Delphi-Language
Delphi
by hirnstroem,
7. Apr 2006
LCDanger wird auf jeden Fall true, denn er macht ja genau das, was ich will...bis auf das Beenden.
Zwei Schleifen sind grundsätzlich nicht nötig, aber bei mir ist da noch einiges mehr an Code drin, welcher für dieses Problem aber nicht so wirklich relevant ist.
Forum: Object-Pascal / Delphi-Language
Delphi
by hirnstroem,
7. Apr 2006
'loha Folks,
Mit der folgenden Prozedur, wird eine Simulation unterbrochen...
procedure TFDSC_Simulator.Delay(Milliseconds: Integer);
var
Tick: DWord;
Event: THandle;
begin
Event := CreateEvent(nil, False, False, nil);