Matheass braucht Denker :P

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