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:

Zitat von Valle (Beitrag 1359707)

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 :P 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 :roll:

[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 :stupid:

[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.

[DeddyH]

Na gut, ich klinke mich aus.

[Valle]

Zitat:

Zitat von a.def (Beitrag 1359713)

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.

Du hast eben noch geschrieben "hat er doch schon", als ich meinte dass der Max-Wert auf Array-Länge gesetzt werden sollte.

Zitat:

Zitat von a.def (Beitrag 1359713)

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 :roll:

Ich bin mir sicher das hier reicht dem OP völlig.

Delphi-Quellcode:

begin
  ProgressBar1.Max := Length(myArray);
  ProgressBar1.Position := 0;

  for i := 0 to High(myArray) do begin
    doCalculations();
    ProgressBar1.StepIt;
    // wahrscheinlich Application.ProcessMessages um Update anzuzeigen?
    // Alternativ: Berechnung in einem Thread, dann wird's aber komplizierter
  end;
end;

[a.def]

Das würde reichen.
Nichts desto trotz hat mein Vorgehen den Vorteil, dass man schon für eventuell spätere hinzukommende Probleme vorgesorgt hat.
Wieso wird man hier eigentlich direkt auseinander genommen wenn man doch nur helfen wollte.

[Valle]

Nimm das nicht persönlich, hier wird niemand auseinander genommen. Wenn du meinen Post aber zitierst und darunter etwas schreibst, was nicht stimmt, dann sehe ich mich genötigt meinen zur dir alternativen Vorschlag nochmals zu erörtern. Meine Intention ist es dem OP einen alternativen Vorschlag zu bringen. An einer Diskussion darüber, welcher Vorschlag besser ist, bin ich nicht interessiert.

Wenn du es für sinnvoll hältst zuerst über die 100 zu gehen, dann tu das. Ich halte es nicht für sinnvoll. Damit werden wir beide leben müssen.

[a.def]

Zitat:

Zitat von Valle (Beitrag 1359724)

Wenn du es für sinnvoll hältst zuerst über die 100 zu gehen, dann tu das. Ich halte es nicht für sinnvoll. Damit werden wir beide leben müssen.

Das verstehe ich jetzt nicht. Wo gehe ich denn zuerst über die 100?

[Valle]

Zitat:

Zitat von a.def (Beitrag 1359709)

Eine ProgressBar mit Max-Wert 100 (Prozent) finde ich deutlich angenehmer als eine ProgressBar mit 50.123 oder so.

Da.

Ich bin jetzt aber auch raus.

[a.def]

Völlig unverständlich was du von mir möchtest. Muss keiner verstehen.
Egal.

[stahli]

so eine Aufregung hier ... ;-)

Also die Antwort #13 von Valle sollte es auf den Punkt bringen.
Die Progressbar berechnet die Position anhand des Dreisatzes ja automatisch. Es ist schlicht nicht notwendig, den Maximalwert selbst irgendwie auf 100 umzurechnen.


Anders sieht es aus, wenn man nicht jeden Fortschritt selbst darstellen will sondern z.B. von 1Mio Berechnungen nur z.B. 100 darstellen will.
Dann kann man

Delphi-Quellcode:

StepCount := 1Mio div 100

berechnen und eine lokale Variable StepI hochzählen und bei Erreichen von StepCount den Zwischenschritt darstellen.

[hansklok]

Hey, nicht streiten! ;)

Vielen Dank für den Input. Ich habe es jetzt so gelöst:

Code:

mLineCount = Array.Count
mImportStep = mLineCount / 100

Und innerhalb der Schleife:

Code:

if aktuellerArrayIndex mod mImportStep = 0 then ProgressBar.Value = Inc(Progressbar.Value)