Zählschleife ???

[Daniel B]

Hallo,

hier mal ein Beispiel wie ich es mal mit nem Edit gemacht habe.

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
//Edit, Füllen
begin
  if not b then
  begin
    Edit1.Text := '0'; //Hier dann Label nehmen
    Timer1.Enabled := True;
    b := True;
    Button5.Caption := 'Stoppen';
  end
  else if b then
  begin
    Timer1.Enabled := False;
    b := False;
    Button5.Caption := 'Füllen';
  end;
end;

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
//im Edit die Zahl hochzählen
begin
  Edit1.Text := FloatToStr(StrToFloat(Edit1.Text) +1);
end;

HTH.

Grüsse, Daniel