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.