ProgressBar für Anfänger

[rossinie00]

ProgressBar für Anfänger

Wie kann ich die Progressbar benutzen find keine richtige anleitung
danke

[MathiasSimmack]

Progressbar auf die Form, und dann:

Delphi-Quellcode:

for i := 1 to 100 do
 Progressbar1.Position := i;

Als einfachstes aller Beispiele.

[rossinie00]

ich hab ne text ausgabe in nem memofeld.
natürlich ist die ausgabe schon in einem bruchteil von ner sekunde da aber ich hätte gern so eine progress bar die 2 sek braucht um sich zu füllen und dann den text erst ausgibt :duck:

[Meflin]

dazu könntest du einen timer verwenden, mit interval 2000, den du bevor du den text einfügst enablest. der kann dann die bar füllen und anschließend den text einfügen!

[rossinie00]

das geht auch wenn das teil zum txt füllen in ner schleife ist?

[Nicodius]

nein der interval ist da nicht entscheidend!

--> interval ist nur für die zeit wo die aktionen im timer ablaufen!!
..
dumusst das dann so machen das du von 1..2000(1000 millisekunden = 1 Sek.) zählst

[Meflin]

käse. intervall ist die zeit wann der timer das ontimerevent auslöst. also ist das sehr wichtig :roll:

[rossinie00]

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j, Zufallszahl, eingabe, summe: integer;
  durchschnitt: real;
begin
  RANDOMIZE;
  eingabe := strtoint(edit1.text);
  Memo1.Lines.Clear;
  for i := 1 to 10 do
  begin
    timer
    Zufallszahl := Random(eingabe);
    memo1.Lines.Add(inttostr(Zufallszahl));
    summe := summe + ZufallsZahl;
    Progressbar1.Position := i;
  end;
  durchschnitt := summe / 10;
  for j := 0 to 3 do
    begin
      memo1.Lines.Add('');
    end;
  memo1.Lines.Add(FloatToStr(durchschnitt));
end;

und nu :-D

[Nicodius]

"--> interval ist nur für die zeit wo die aktionen im timer ablaufen!! "

das hab ich doch gesagt ....

[Meflin]

Delphi-Quellcode:

Zufallszahl := Random(eingabe); 
memo1.Lines.Add(inttostr(Zufallszahl)); 
summe := summe + ZufallsZahl; 
Progressbar1.Position := i;

das müsste ins onTimer event deines timers, aber das mit der progressbarposition stimmt nicht, da die dann nur einmal in 2 sekunden ausgeführt würde