Schleife in die editausgabe prozedur

[Daniel B]

Hallo,

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  iFor: Integer;
begin
  Edit1.Text := IntToStr(Random(9));
  Sleep(250);
  Application.ProcessMessages;
  for iFor := 0 to 9 do
  begin
    Sleep(250);
    Edit1.Text := Edit1.Text + IntToStr(Random(9));
    Application.ProcessMessages;
  end;
end;

Grüsse, Daniel