Matheass braucht Denker :P

[hansklok]

Hallo an alle,

Mathe zählte nie zu meinen Stärken. Umso lustiger, dass ich dennoch programmiere. Simple Frage:

Ich habe ein Dynamisches Array, welches durchlaufen wird und eine Progressbar. Diese hat einen maximalen Wert von 100 (=100%) und soll immer dann aktualisiert werden, wenn ein Prozent des Arrays durchlaufen ist.

1% = Array.Count/100

Und wie ermittle ich nun innerhalb der Schleife beim durchlaufen des Arrays ob jeweils ein Prozent mehr erreicht ist?

Beste Grüße

[a.def]

Du speicherst den aktuellen Wert der ProgressBar in eine Variable und prüfst diese mit dem Wert der ProgressBar beim nächsten Durchlauf.

Delphi-Quellcode:

var
 iTmp, iProgress_Old:Integer;
begin
 iTmp := 0;
 iProgress_Old  := 0;

 for i := 1 to 100 do
  begin
   iTmp := BerechneProzentFuerProgressBar;

   if iTmp > iProgress_Old then // Wenn berechneter (neuer) Wert größer als der alte, dann ProgressBar.Position setzen
    ProgressBar1.Position := iTmp;

   iProgress_Old  := iTmp; // neuen Wert in temporäre Variable zum späteren Vergleichen speichern
  end;
end;

[Valle]

Du kannst auch vorher das Max-Attribut deiner ProgressBar auf die Länge des Arrays ändern. Dann sparst du dir das Rechnen.

[a.def]

Zitat von Valle:

Du kannst auch vorher das Max-Attribut deiner ProgressBar auf die Länge des Arrays ändern. Dann sparst du dir das Rechnen.

Hat er doch schon Seine ProgressBar hat den Max-Wert 100.
Eine ProgressBar mit Max-Wert 100 (Prozent) finde ich deutlich angenehmer als eine ProgressBar mit 50.123 oder so.

[Valle]

Warum schreibst du deinen Code dann so kompliziert, wenn du meinst er hätte den Max-Wert auf die Array-Länge gesetzt?

[a.def]

Zitat:

wenn du meinst er hätte den Max-Wert auf die Array-Länge gesetzt?

Sein Max-Wert ist 100, nicht die Array-Länge.

Was ist an meinem Code kompliziert?
Seine Frage war wie man mitbekommt, dass der neue ProgressBar-Wert größer als der alte ist.
Und genau das macht mein Code. Er überprüft das und nur wenn der neue Wert größer ist als der alte wird die ProgressBar.Position neu gesetzt.

Verstehe nicht was daran kompliziert sein soll

[DeddyH]

Die Komponente kann das doch alles ganz allein, wenn man die Werte entsprechend setzt. Wozu das Rad neu erfinden?

[a.def]

Die von mir vorgeschlagene Methode kann aber noch für andere Zwecke benutzt werden.
Es ist ja nicht nur das Setzen der ProgressBar. Vielleicht kommt später ja noch mehr dazu und man möchte nicht immer alles ausführen sondern nur dann wenn der Wert sich geändert hat.

Außerdem erspart man sich so ein SendMessage und noch weiteren Kram

[DeddyH]

Dafür wäre eine Klasse mit einem entsprechenden Eventhandler aber deutlich eleganter, oder?

[a.def]

Eleganter ja. Aber danach hat keiner gefragt.

Die Frage war

Zitat:

Und wie ermittle ich nun innerhalb der Schleife beim durchlaufen des Arrays ob jeweils ein Prozent mehr erreicht ist?

und die habe ich beantwortet.