delay problem!

[smax]

Hallo,

ich benutze folgende Code:

delay(1000); Fehler der angezeigt wird:

Undeclared identifier: 'delay'

Woran liegt das?

EDIT: So wie es aussieht kennt Delphi 6 diesen Befehl garnicht! Gibt es einen anderen der das selbe bewirkt?

[Luckie]

Kuck mal in der Code-Library, da müßte dir geholfen werden.

[smax]

Ja diese Funktion kenne ich ja schon aber vorhin hat Daniel B zumir gesagt, dass es auch nur mit delay geht!

[Luckie]

Nein. Delay ist noch aus TP-Zeiten und die Funktion kennt der Delphi-Compiler nicht mehr.

[smax]

Ok gut aber mal eine Frage zu deiner netten Funktion!

Wo gebe ich den z.B. 1 Sekunde Pause an?

Achso und warum wird in der Zeile procedure delay(msec:longint); ein Fehler angezeigt?

Und zwar:

Statement expected but 'PROCEDURE' found

[Daniel B]

Hallo,

Du hast irgendwo die Prozedur

Delphi-Quellcode:

procedure Delay(mSec: LongInt);
begin
  //bla und bla
end;

Dein Aufruf sieht dann so aus:
Delay(1000); Das steht dann z.B. zwischen dem begin und end irgend einer Prozedur, z.B. bei einem ButtonClick o.ä..
Die Zahl in Klammern sind Millisekunden, 1000 wäre also eine Sekunde.

Grüsse, Daniel

[Luckie]

Wo ist das Problem?

Delphi-Quellcode:

procedure delay(msec:longint);  
var  
  start,stop:longint;  
begin  
  start := gettickcount;  
  repeat  
    stop := gettickcount;  
    application.processmessages;  
  until (stop - start ) >= msec;  
end;

Das kopierst du als erste Prozedur in deinen Code nach Implementation.

Und aufrufen tust du es mit
Delay(1000); Die Zeit wird in Millisekunden angegeben.

[smax]

THX!

[smax]

Es geht aber nicht!

Normalerweise sollte er nämlich jetzt bis 0 runterählen!

Delphi-Quellcode:

for i:=0 to ending do;
 begin
  calc:=calc-1;
  panel1.caption:='Noch ' + IntToStr(calc) + ' Sekunden';
  i:=i+1;
  delay(1);
 end;

Fehler wird nicht angezeigt!

[Daniel B]

Wärst Du so freundlich uns zu sagen was Du da machst, bzw. was Du vor hast? Was soll denn wie passieren?

Grüsse, Daniel