Progressbar und Timer

[SaFu]

Guten Morgen

Habe mal ein kleines Problem mit der Progressbar und ein Timer

Ich lasse in einer FileListrBox dateien mit einem Timer nacheinander in ein RichEdit laden, den durchlauf der Dateien kann man mit zwei Button verkürzen oder verlängern und zwar so

Delphi-Quellcode:

// Zeit verkürzen
procedure TForm5.Button9Click(Sender: TObject);
begin
  n:= n - 1000;

  if Timer3.Interval > 0 then
    begin
      Timer3.Interval:= n;  //Wert "n" übergeben
       Label3.Caption:= Format('%.0f Sekunden', [Timer3.Interval / 1000]);

       Label3.Update; // Label aktualisieren
    end;

jetzt würde ich gerne mit der Progressbar anzeigen lassen wie lange es dauert bis die nächste datei geladen wird.

Wie Mache ich das

[Klaus01]

Guten Morgen Sascha,

ich sehe da zur Zeit zwei Möglichkeiten.

a) Du setzt einen weiteren Timer ein, welcher die Progressbar triggert.
Dessen Interval sollte kleiner sein als der Interval des Timers der den Ladevorgang triggert.

b) Du steuerst die Progressbar auch mit dem Timer des Ladevorgangs.
Dazu solltest Du das Interval verringern und nur dann eine Datei laden
nach jedem 10tem mal Auslösen des Timers.
So hast Du in der Progressbar 10 Schritte zur Verfügung.

Grüße
Klaus

[SaFu]

Funktioniert das auch wenn ich den Timer Interval erhöhe

[Klaus01]

ja, ich denke schon.

a) z.b: ProgressTimer.interval:=Timer3.Interval div 10

b) Timer3.Interval:= n div 10;
Dazu brauchst Du dann noch einen Counter, der zählt wie oft Timer3 schon ausgelöst wurde.

Grüße
Klaus

[SaFu]

Zitat:

ProgressTimer

???

[Nils_13]

ProgressTimer ist ein normaler Timer, der sich in diesem Fall um die Progressbar kümmert.