Procressbar zählen

[CReber]

Zitat:

Hallo ich suche einen Code für eine Procressbar diese soll nachdem auf einen Button geklickt wurde die Zeit abzählen welche sie aus einen Edit Feld ausließt ist das möglich udn wie leutet dann der Code?

Vielleicht solltest du erstmal an deiner Formulierung arbeiten... Tipp: Kommasetzung Das erleichtert das lesen ungemein

Wie mir scheint hast du wirklich noch gar keine Ahnung von Delphi. Ich möchte Dir ein paar Tipps geben Zum ersten solltest du verstehen, was sich hinter den ganzen Ereignissen verbirgt. In deinem Fall bräuchtest du das Ereignis OnClick bei einem Button. In dem Moment musst du den Wert aus dem Editfeld auslesen.

Dann solltest du den Maximalbereich der ProgressBar einstellen. Der maximale Wert ist ja logischerweise deine Zahl aus dem Editfeld.

Jetzt benötigst du eine Delay-Routine (dazu steht genug hier im Forum). Diese wartet dann immer eine Sekunde und dann wird die ProgressBar um eins erhöht. Fertig bist du...

Delphi-Quellcode:

procedure Wait(Time : Integer);
.
.
.

procedure TForm1.Button1OnClick(Sender: TObject);
  var CountDown : Integer;
      i         : Integer;
begin
  CountDown := StrToInt(Edit1.Text);
  ProgressBar1.Max := CountDown;
  for i := 0 to CountDown do begin
    Wait(1000);
    ProgressBar1.Position := i;
  end;
end;