Stringgrid Plus Minus Vergleich

[Satty67]

Mir ist noch was aufgefallen, was direkt nichts direkt mit dem Problem zu tun hat aber evtl. später für Verwirrung sorgen kann:

Delphi-Quellcode:

k:= StrToFloat(JvSG1.Cells[2,i]); l:= StrToFloat(JvSG1.Cells[2,i+1]);
If k > l then JvSG1.Cells[9,i+1] := '-1';
If k < l then JvSG1.Cells[9,i+1] := '+1';
If k = l then JvSG1.Cells[9,i+1] := '0';

Flieskommazahlen (außer Currency) sollte man möglichst nicht auf "gleich" testen, da u.U. mathematisch gleiche Zahlen aufgrund Abbildungsungenauigkeiten in der Fließkommazahl plötzlich ungleich werden.

Statt nun kompliziert zu runden (was auch nie genau wird) könnte man die Quelle vor der Umwandlung testen:

Delphi-Quellcode:

if JvSG1.Cells[2,i] = JvSG1.Cells[2,i+1] then
  JvSG1.Cells[9,i+1] := '0'
else 
  // größer / kleiner prüfen

PS: Man könnte meinen, dass gleiche Strings immer gleich umgewandelt werden sollten. Meine mich aber zu erinnern, das Intel-CPUs da einen Mechanismus haben, Ungenauigkeiten durch wechselndes auf/abrunden auszugleichen (hoffe, das hab' ich nicht falsch in Erinnerung).

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