Pause in procedure einbauen...?

[Cöster]

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.

[Mucki]

Hallo User,

möchte mich für Eure Unterstüzung bedanken,

habs doch noch hin bekommen.

Gruss Mucki.