Zeitverzögerung im Code!

[Florian]

Also, ich würde gern eine Verzögerung programmieren, um den Ablauf meines Programms zu verzögern.
Ich führe mehrere Anweisungen durch und möchte in jeder Anweisung
1 sec warten und dann unterhalb im Code weiter machen.

Problem: Mit dem Timer bekomm ich des irgendwie nicht hin, oder gibt es irgendeine function wie WaitFor(OnTimer) ?

Danke für eure Hilfe :-)

[Alexander]

probier mal die Funktion sleep(1000) aus. Die zu wartene Zeit wird wie beim Timer in Millisekunden angegeben.

[Daniel B]

Moin,

das Problem an Sleep ist, das dabei die ganze Anwendung, bzw. aktuelle Threads einfrieren.
Besser ist das oder das.

Grüsse, Daniel :hi:

[phlux]

In dem 2ten Code ist ein Html zeichen drinne :mrgreen: hab ich so beim drübersehn entdeckt :wink:

[Daniel B]

Zitat:

Zitat von phlux

In dem 2ten Code ist ein Html zeichen drinne :mrgreen: hab ich so beim drübersehn entdeckt :wink:

Stimmt, das ist ein < oder >.

Grüsse, Daniel :hi:

[Alexander]

stimmt, daran dachte ich nicht, dass die ganze Anwendung einfriert. Tut es aber auch ;-)

[nailor]

Zitat:

Zitat von Daniel B

Moin,

das Problem an Sleep ist, das dabei die ganze Anwendung, bzw. aktuelle Threads einfrieren.
Besser ist das oder das.

Grüsse, Daniel :hi:

Worin liegt eigentlich der Unterschied zwischen den beiden?

[Daniel B]

Zitat:

Zitat von Nailor

Worin liegt eigentlich der Unterschied zwischen den beiden?

Gibt keinen. Bis auf die Variablennamen und Variablendeklarationen.
Ich fnde das sich das eine besser lesen lässt, ausserdem stimmt bei einem das >=. ;)

Grüsse, Daniel :hi:

[Basti]

Hi,

es gibt eine procedure Delay, die du aber erst definineren musst:
(erstell einfach eine neue Unit und kopier das hier rein)

Delphi-Quellcode:

unit DelayUnit;

interface

uses Windows, Forms;

procedure Delay(MSecs: Integer);

implementation

procedure Delay(MSecs: Integer);
var
 FirstTickCount : LongInt;
begin
 FirstTickCount:=GetTickCount;
 repeat
 Application.ProcessMessages; {allowing access to other controls, etc.}
//Application.HandleMessage;
 until ((GetTickCount-FirstTickCount) >= LongInt(MSecs));
end;

end.

Danach kannst du in deinem Programm den Befehl "Delay" benutzten (natürlich musst du die Unit "DelayUnit" aufrufen.

Während diesem Befehl, der genauso wie Sleep funktioniert, nur das er das Programm nicht anhält, kannst du das Programm nur nicht beenden. Das ist der einzige Nachteil.
Viel Spaß damit

Gruß

Basti :coder:

[edit=Daniel B]Delphi-Tags gesetzt. MfG Daniel B.[/edit]

[Christian Seehase]

Moin Basti,

wobei Dein Delay fast auf's Bit genau identisch ist mit dem ersten Link von Daniel.
(einziger Unterschied: msecs statt Msecs)
;-)

[janjan]

Ich würd eventuell GetTickCount durch TimeGetTime ersetzen, das bietet angeblich eine bessere Genauigkeit. Damit das klappt, muss man glaub ich die mmsystem in den uses-Abschnitt reinschreiben.

[nailor]

du kennst doch unsere non-VCL-Verfechter :wink:

[janjan]

Von wegen VCL:

http://msdn.microsoft.com/library/de...mfunc_2q3p.asp

[Chewie]

Laut SDK braucht diese Funktion weniger Resourcen. Das sei der einzige Unterschied.

[Snoop007]

irgenwie verstehe ich das nicht ?

dann könnte ich doch auch

Application.ProcessMessage;
sleep(1000);

verwenden, kommt doch aufs gleich raus, die anwendung erhält noch befehle und es wird 1 sec gewartet

[Luckie]

Delphi-Quellcode:

Applicatio.PrecessMessages;
Sleep(10000);

Und jetz? Jetzt werden erst wieder alle Nachrichten abgearbeitet, aber dann reagiert das Programm auch für 10 Sekunden nicht mehr.

[Christian Seehase]

Moin Snoop,

nein, das ist nicht dasselbe.
Sobald Sleep aufgerufen wird, wird der Thread aus dem heraus diese Funktion aufgerufen wird komplett angehalten, für die als Parameter angegebene Zeitspanne.
Macht man das im Hauptthread des Programmes, so "hängt" dieses solange.

[Snoop007]

ja, danke ... ist ja irgendwie auch logisch ....

eintrag für mich : erst sammeln dann stammeln ;)

[Chewie]

Zitat:

Zitat von Snoop007

irgenwie verstehe ich das nicht ?

dann könnte ich doch auch

Application.ProcessMessage;
sleep(1000);

verwenden, kommt doch aufs gleich raus, die anwendung erhält noch befehle und es wird 1 sec gewartet

Genau, es wird 1 Sekunde gewartet, und zwar in allen Threads. Mit Delay wird die Sekunde aber nur in dem Thread gewartet, der die Funktion aufruft.

Edit: Ach, verdammt, Sleep hält doch nur den aktuellen Thread an.