Zitat von
Mucki:
Kann keine Schleife um das delay legen, so das z.B. das senden & empfangen
mehrmals durchlaufen wird.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
pause : word;
begin
for i := 1 to 5 do
begin
label1.caption := 'bitte warten';
delay(500);
label1.caption := 'pause vorbei';
pause := i ;
end;
end;
Warum?
Ich nehme an, dir immer 'bitte warten' angezeigt. Das liegt daran, dass direkt nachdem 'pause vorbei' angezeigt wird der nächste Schleifenaufruf folgt, in dem die Caption sofort wieder auf 'bitte warten' gesetzt wird.