Ich wollte in meinen Programm eine Wartezeit einbauen. Dazu benutzte ich

markieren

Delphi-Quellcode:

//...
sleep(500);
//...

Aber ich bemerkte die Wartezeit garnicht.

An einem Testprogramm ist es noch deutlicher:

markieren

Delphi-Quellcode:

//... procedure für den Knopfdruck von Button1
begin
 Label1.Caption:='Tschüß'; //Label1 ist schon vorhanden
 sleep(500);
 close;
end;
//...

Wieso bemerkt man keine Wartezeit?

PS: auch bei einer viel größeren Zahl bemerkt man ebenso nichts!

naja der Wert den Du an sleep übergibst ist in millisekunden angegeben.. 500 ist dann also eine halbe sekunde. Wenn Du den Wert auf sagen wir 5000 festlegst, solltest Du schon eine Pause bemerken.

Hm,...

Das stimmt. In meinem Testprogramm merkt man schon was wenn sleep über 1500 ist...

In meinem anderen Programm muss ich dann nach was anderem suchen...

naja das Problem was ich mit sleep habe ist, dass das Programm einfriert, wenn man einfach nur sleep nutzt, so lange die Prozedur aktiv ist.

Um das zu umgehen, mach ich mir ne Schleife mit prezssmasges drinn. z.B. so:

markieren

Delphi-Quellcode:

for i := 1 to 1500 do
  BEGIN
    sleep(1);
    application.ProcessMessages;
  END;

da gibt es sicher noch elegantere Sachen, aber es funtzt auf jeden Fall.

Hai ihr zwei,

schaut euch doch man Hagens Beitrag in der CodeLibrary zu dem Thema an.

Edit: Ein "ich" in "euch" umgewandelt hat.

ich mach das (manchmal) so:

markieren

Delphi-Quellcode:

uses DateUtils;
.
.
procedure Wait(Ams : Integer);
var ZP : TDateTime;
begin
ZP:=IncMilliSecond(Now,Ams);
while ZP > Now do
  Application.ProcessMessages;
end;

Ist ne, wie ich finde, sehr amüsante Alternative

nice! gefällt mir sogar noch besser, als der Code von Hagen

Zitat von Sharky:

schaut ich doch man Hagens Beitrag in der CodeLibrary zu dem Thema an.

Dann kommt hier "Delay revisited #2":
Man sollte den Delay unterbrechen, wenn die Anwendung beendet wurde.

zusammenfalten · markieren

Delphi-Quellcode:

procedure Delay(Milliseconds: Integer);
var
  Tick: DWord;
  Event: THandle;
begin
  Event := CreateEvent(nil, False, False, nil);
  try
    Tick := GetTickCount + DWord(Milliseconds);
    while (Milliseconds > 0) and
          (MsgWaitForMultipleObjects(1, Event, False, Milliseconds, QS_ALLINPUT) <> WAIT_TIMEOUT) do
    begin
      Application.ProcessMessages;
      if Application.Terminated then Exit; // <===== NEU
      Milliseconds := Tick - GetTickcount;
    end;
  finally
    CloseHandle(Event);
  end;
end;

Zitat von Evian:

markieren

Delphi-Quellcode:

for i := 1 to 1500 do
  BEGIN
    sleep(1);
    application.ProcessMessages;
  END;

da gibt es sicher noch elegantere Sachen, aber es funtzt auf jeden Fall.

ProcessMessages braucht Zeit und Sleep mit einer Millisekunde = unmöglich.

Also dürfte da wohl mehr als 1,5 Sekunden rauskommen

Zitat von Evian:

nice! gefällt mir sogar noch besser, als der Code von Hagen

Ist mein Ironiedetektor kaputt oder ist das wirklich ernstgemeint o.O ?