Stringgrid Plus Minus Vergleich

[himitsu]

Nicht nur Intel auch AMD und Co.
Bankers Rounding

Denn durch die zweierkomplementäre Speicherung ist immer ein Bereich größer/kleiner, als der Andere, was zu Ungerechtigkeiten führt.

Rundet man immer die 0.5 auf, dann wäre x.0 <= ... < x.5 immer kleiner, als x.5 <= ... < x+1.0 .
Also wird immer abwechselnd gerundet > bei ungeraden Ganzzahlanteilen in die eine Richtung und bei geraden Ganzzahlanteilen in die Andere.

[fl63]

Nachdem ich das Ganze in ein eigenständiges Projekt verpflanzt habe, alle Indizes angeglichen habe kommt folgendes bei raus:

Delphi-Quellcode:

implementation

{$R *.dfm}

procedure TForm1.OffnenClick(Sender: TObject);
begin
JvSG1.LoadFromCsv('epatest.txt',#9);
JvSG1.InsertCol(4) ;
end;

//---------------------Berechnung Plus Minus ---------------------
procedure TForm1.PlusMinus(Sender: TObject);
var
i,Summe :integer; k,l:Real;
begin
Summe := 100;
JvSG1.InsertCol(5);
 JvSG1.Cells[4,1] := '00';
     begin
   For i:= 1 to (JvSG1.RowCount-1)-1 do  //Plus Minus in die Zeile 4 Einfügen
     begin
     k:= StrToFloat(JvSG1.Cells[2,i]); l:= StrToFloat(JvSG1.Cells[2,i+1]);
     If k > l then JvSG1.Cells[4,i+1] := '-1';
     If k < l then JvSG1.Cells[4,i+1] := '+1';
     If k = l then JvSG1.Cells[4,i+1] := '0';
     end;
     end;                                  // Plus Minus Einfügen beendet

end;

procedure TForm1.BerechneSummenspaltePlusMinus(Sender:TObject);
var i,Summe :integer;

begin
//JvSG1.InsertCol(10);
Summe := 100; JvSG1.Cells[5,1] := '100';

   For i:= 1 to JvSG1.RowCount-1 do
      begin
      Summe := Summe + StrToInt(JvSG1.Cells[4,i]);
      JvSG1.Cells[5,i] := IntToStr(Summe);
      end;
end;



procedure TForm1.BerechneClick(Sender: TObject);
begin
PlusMinus(Sender) ;
berechneSummenSpaltePlusMinus(Sender);
end;

end.

Jetzt funktioniert es fehlerfrei von der ersten bis zur letzten Zeile.

Vielen Dank bei allen.