delay problem!

[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