Schleife erst wiederholen, wenn Vorgang abgeschlossen ist ??

[Nicolai1234]

Ich möchte eine Schleife bauen, die alle 100 ms das gleiche tut!
Vom Prinzip her reicht ja ein Timer! Nur leider ist die procedure die dann jedes mal ausgelöst wird so lang, dass ich angst habe, dass der Computer zum berechnen länger als 100ms braucht!
Wie kann ich es so machen, das er eine procedure immer dann wiederholt, wenn er sie "durchgerechnet" hat und min. 100 ms vergangen sind?

Hoffe ihr versteht was ich meine!
Danke im Voraus
Nicolai

PS: Ein besserer Titel fiel mir nicht ein!

[sakura]

Die Prozedur wird erst wieder aufgerufen, wenn diese abgearbeitet wurde.

Eine Ausnahme könnte sein, wenn Du inerhalb dieser Application.Processmessages aufrufst.

...:cat:...

[Smokey]

Du könntest auch weiterhin Timer nutzen und diesen im Ontimer Event ausstellen.
Dann nimmst du am anfang und am ende die zeit, rechnest aus wieviel verbraucht wurde und
aktivierst den timer wieder mit der differenz zwischen verbrauchter Zeit und 100ms.

[Nicolai1234]

Gibt es denn eine möglichkeit die dauer einer procedure so genau zu bestimmen?

[woki]

Schau mal in der OH unter gettickcount.

Grüsse
Woki

[eroe]

Hmm .. soweit ich dich verstanden habe, wäre eine - sicherlich NICHT elegante aber durchaus wirksame - Lösung die folgende :

Delphi-Quellcode:

for i:=0 to 100 do
  begin
  //Anweisungsblock
  sleep(100);
  end;

[Nicolai1234]

Aber wenn die procedure 50ms braucht und dein sleep, kommte man auf 150ms und das wäre verschwenderisch!

[nailor]

mach es so wie smokey vorgeschlagen hat

[Nicolai1234]

Hat sich eh erledigt, nachdem was Sakura geschrieben hat:

Zitat:

Zitat von sakura

Die Prozedur wird erst wieder aufgerufen, wenn diese abgearbeitet wurde.

Eine Ausnahme könnte sein, wenn Du inerhalb dieser Application.Processmessages aufrufst.

...:cat:...

[eroe]

Zitat:

Zitat von Nicolai1605

Aber wenn die procedure 50ms braucht und dein sleep, kommte man auf 150ms und das wäre verschwenderisch!

Das stimmt wohl, hatte ich überlesen .. Ich dachte, er soll nach dem Anweisungsblock noch 100 ms warten, aber das hat sich ja dann erledigt ;)