Forum: Sonstige Fragen zu Delphi
Delphi
by smax,
17. Mär 2003
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);
Forum: Sonstige Fragen zu Delphi
Delphi
by smax,
17. Mär 2003
Mhh dann steht aber nur da:
Noch -1 Sekunde
Forum: Sonstige Fragen zu Delphi
Delphi
by smax,
17. Mär 2003
Ja der soll aber anzeigen wie viele Sekunden er NOCH drauch!
Forum: Sonstige Fragen zu Delphi
Delphi
by smax,
17. Mär 2003
Ja gut es geht aber immernoch net:
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';
Forum: Sonstige Fragen zu Delphi
Delphi
by smax,
17. Mär 2003
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?
Forum: Sonstige Fragen zu Delphi
Delphi
by smax,
17. Mär 2003
Achso erhöht Delphi die i automatisch?
Wo soll ich nun Application.ProcessMessages; einbauen?
Forum: Sonstige Fragen zu Delphi
Delphi
by smax,
17. Mär 2003
Wo muss ich das Application.ProcessMessages; einbauen?
Forum: Sonstige Fragen zu Delphi
Delphi
by smax,
16. Mär 2003
Es geht aber nicht!
Normalerweise sollte er nämlich jetzt bis 0 runterählen!
for i:=0 to ending do;
begin
calc:=calc-1;
panel1.caption:='Noch ' + IntToStr(calc) + ' Sekunden';
i:=i+1;
delay(1);
Forum: Sonstige Fragen zu Delphi
Delphi
by smax,
16. Mär 2003
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
Forum: Sonstige Fragen zu Delphi
Delphi
by smax,
16. Mär 2003
Ja diese Funktion kenne ich ja schon aber vorhin hat Daniel B zumir gesagt, dass es auch nur mit delay geht!
Forum: Sonstige Fragen zu Delphi
Delphi
by smax,
16. Mär 2003
Hallo,
ich benutze folgende Code:
delay(1000);
Fehler der angezeigt wird:
Undeclared identifier: 'delay'
