Form verhält sich mit ABS() anders als ohne

[kalmi01]

In einem Prog befindet sich diese Funktion:

Delphi-Quellcode:

    procedure Progress(Size, CurrentPos: Int64);
      var
        OPos, NPos : integer;
      begin
        OPos := MainForm.StatusMeter.Percent;
        NPos := Round(CurrentPos * 100 / Size);
        if (NPos <> OPos)
        then begin
               MainForm.StatusMeter.Percent := NPos - 1;
               Application.ProcessMessages;
             end;
      end;

Damit funktioniert auch alles.
Wenn ich die Funktion aber so abändere:

Delphi-Quellcode:

    procedure Progress(Size, CurrentPos: Int64);
      var
        OPos, NPos : integer;
      begin
        OPos := MainForm.StatusMeter.Percent;
        NPos := Round(Abs(CurrentPos * 100 / Size) - 1);      << hier
        if (NPos <> OPos)
        then begin
               MainForm.StatusMeter.Percent := NPos;          << und hier
               Application.ProcessMessages;
             end;
      end;

wird zwar die Progressbar weiterhin aktualisiert, wie im ersten Beisspiel.
Im Edit-Fenster wird aber nach der ersten Zeile nichts mehr angezeigt, bis alles geladen ist.

Nicht, das mich das stört, solange es eine Ausweichmöglichkeit gibt.
Aber es würde mich schon mal interessieren, warum das Verhalten so ist ?
Hab ich einen Denkfehler ?

[mkinzler]

Delphi-Quellcode:

NPos := Round(CurrentPos * 100 / Size)-1 ;

ist was anderes als

Zitat:

NPos := Round((CurrentPos * 100 / Size) -1);

[TBx]

Zitat:

Zitat von kalmi01

Im Edit-Fenster wird aber nach der ersten Zeile nichts mehr angezeigt, bis alles geladen ist.

Welches Editfenster?

Gruß

onlinekater

[kalmi01]

Zitat:

Zitat von mkinzler

Delphi-Quellcode:

NPos := Round(CurrentPos * 100 / Size)-1 ;

ist was anderes als

Zitat:

NPos := Round((CurrentPos * 100 / Size) -1);

wenn man die beieden Zeilen herausgelöst aus der Funktion betrachtet, ja.
Nebenbei stand im Code-Ausschnitt

Delphi-Quellcode:

NPos := Round(Abs(CurrentPos * 100 / Size) - 1);

nicht

Delphi-Quellcode:

NPos := Round(CurrentPos * 100 / Size)-1 ;

Zitat:

Zitat von onlinekater

Welches Editfenster?

OK, ich hätte natürlich den gesamten Source posten können.
Nein, also ich hätte wohl noch dazuschreiben sollen, was das Prog macht:
Es füllt die Stringlist eines Edit-Fensters.
Das tut es in beiden Fällen korrekt, nur in dem Beispiel mit dem Abs() sieht man es nach dem die erste Zeile erzeugt wurde nicht mehr.
Wenn ich im Debugger das Füllen der Stringlist überwache, passiert bei beiden Beispielen das Gleiche.
In beiden Fällen läuft die Progressbar sauber hoch, d.h. Application.ProcessMessages funktioniert.
Nur beim 2.ten Beispiel wird das Edit-Fenster des Prog's nicht mehr ge-refresht.

[mkinzler]

Zitat:

Nebenbei stand im Code-Ausschnitt ...

ABS liefert ja nur den Betrag des Ausdrucks, deshalb bin o.B.d.A davon ausgegangen, daß CurrentPos positiv ist.

[kalmi01]

Zitat:

Zitat von mkinzler

ABS liefert ja nur den Betrag des Ausdrucks, deshalb bin o.B.d.A davon ausgegangen, daß CurrentPos positiv ist.

ist es ja auch (0 bis 100).
Aber 0 - 1 ist halt negativ, deshalb ABS.

jetzt hab ich mal:

Delphi-Quellcode:

        NPos := Round(CurrentPos * 100 / Size) - 1;
        if (NPos > OPos)

so abgeändert und siehe da, es funktioniert ebenfalls korrekt.