Hallo,
mach Bitte bei neuen Fragen auch ein neuen Thread auf! Danke!
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);
begin
Edit2.Text := '1';
Delay(500);
Edit2.Text := Edit2.Text + '2';
Delay(500);
Edit2.Text := Edit2.Text + '3';
end;
Da Sleep das ganze etwas "kaputtmacht" und das Ergebniss nicht das wahre ist, habe ich es mal mit Luckies Delay-Prozedur eingefügt. Die ist wenisgtens verlässlich.
Grüsse, Daniel
