delay problem!

[smax]

Hallo,

ich benutze folgende Code:

Delphi-Quellcode:

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:

Delphi-Quellcode:

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 :hi:

[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

Delphi-Quellcode:

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]

:mrgreen:
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 :hi:

[toms]

Zitat:

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

Du musst noch ein Application.ProcessMessages;*in die Schleife einbauen, damit der Text im Label aktualisiert wird.

[smax]

Wo muss ich das Application.ProcessMessages; einbauen?

[janjan]

Und das i:=i+1 mußt du auch weglassen...

[smax]

Zitat:

Zitat von janjan

Und das i:=i+1 mußt du auch weglassen...

Achso erhöht Delphi die i automatisch?

Wo soll ich nun Application.ProcessMessages; einbauen?

[Luckie]

Sicher, ist ja eine for-Schleife. Mach dich mal über die Grundlagen schlau: www.delphi-source.de und www.delphi-treff.de

[smax]

Hmm wusste ich nicht, da ich seit kanpp 3 Jahren PHP programmiere und es da so ist, dass ich es immer erhöhern muss! In Turbo Pascal auch, aber Delphi ist ja schon etwas intelligenter :D

Wo muss ich nun Application.ProcessMessages; einfügen?

[janjan]

In Turbo Pascal musstest du NIE in einer For-Schleife die Zählervariable erhöhen! Dafür sind die Dinger doch schließlich da 8)

[smax]

??? also ich hab TP selber nur im Informatik und beschäftige mich zuhause damit net weiter aber mein Informatik-Lehrer sagt immer das man das machen soll!

Wo soll ich nun Application.ProcessMessages; einbauen? hab schon fast alle Varianten probiert die auch nur gehen :(

[Luckie]

Na innerhalb der for-Schleife.

Und das was du da über for-Schleifen und TP erzählst kann ich nicht glauben. Verwechselst du das jetzt mit einer while-Schleife?

[smax]

Ja gut es geht aber immernoch net:

Delphi-Quellcode:

 if Edit1.Text < '1' then Application.MessageBox('Sie müssen eine Zahl eingeben die größer als 0 ist!','Fehler',16);
 ending:=StrToInt(Edit1.Text)*60;
 calc:=ending;
 for i:=0 to ending do;
 begin
  Application.ProcessMessages;
  calc:=calc-1;
  panel1.caption:='Noch ' + IntToStr(calc) + ' Sekunden';
  delay(1000);
 end;

Eigentlich sollte er nun die Sekunden runterzählen und anzeigen aber es steht nur:

Noch 59 Sekunden

[Luckie]

Schon mal an einen Timer gedacht?

Geht wunderbar:

Delphi-Quellcode:

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

procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
begin
  for i := 0 to 60 do
  begin
    Application.ProcessMessages;
    Label1.Caption := IntToStr(i);
    Delay(1000);
  end;
end;

Bzw. so wie du es willst:

Delphi-Quellcode:

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

procedure TForm1.Button1Click(Sender: TObject);
var
  i, calc : Integer;
begin
  calc := 61;
  for i := 0 to 60 do
  begin
    Application.ProcessMessages;
    Dec(calc);
    Label1.Caption := IntToStr(calc);
    Delay(1000);
  end;
end;

Oder so:

Delphi-Quellcode:

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

procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
begin
  for i := 60 downto 0 do
  begin
    Application.ProcessMessages;
    Label1.Caption := IntToStr(i);
    Delay(1000);
  end;
end;

[smax]

Ja der soll aber anzeigen wie viele Sekunden er NOCH drauch!

[Luckie]

*push* *pop*

Kuck dir noch mal die zwei anderen Code-Schnipsel an.

[smax]

Mhh dann steht aber nur da:

Noch -1 Sekunde

[Luckie]

Ist getestet und bei mir zählt er brav runter. Poste mal, was du jetzt hast.

[smax]

procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
if Edit1.Text < '1' then Application.MessageBox('Sie müssen eine Zahl eingeben die größer als 0 ist!','Fehler',16);
for i:=60 downto 0 do;
begin
Application.ProcessMessages;
panel1.caption:='Noch ' + IntToStr(i) + ' Sekunden';
delay(1000);
end;
end;

[Luckie]

Frag mich bitte nicht, was da los ist. Meiner geht, deiner nicht:

Delphi-Quellcode:

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

// smax
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i:= 60 downto 0 do;
begin
Application.ProcessMessages;
panel1.caption:='Noch ' + IntToStr(i) + ' Sekunden';
Delay(1000);
end;
end;

// Luckie
//procedure TForm1.Button1Click(Sender: TObject);
//var
//  i : Integer;
//begin
//  for i := 60 downto 0 do
//  begin
//    Application.ProcessMessages;
//    Panel1.Caption := 'Noch '+IntToStr(i)+' Sekunden';
//    Delay(1000);
//  end;
//end;

Aus irgendeinen Grund wird bei dir Delay nicht richtig ausgeführt.

sakura hat den Unterschied gefunden: Mach das Semikolon nach dem do mal weg. :wall: