Neuer Quelltext:
Delphi-Quellcode:
procedure TForm1.PlusMinusGrafik2(Sender: TObject);
var
i,Summe :integer; k,l:Real;
begin
Summe := 100;
//JvSG1.InsertCol(9);
JvSG1.Cells[9,1] := '00';
begin
For i:= 1 to JvSG1.RowCount-1 do //Plus Minus in die Spalte Einfügen
begin
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';
Summe := Summe + StrToInt(JvSG1.Cells[9,i]);
JvSG1.Cells[10,i] := IntToStr(Summe);
end;
end; // Plus Minus Einfügen beendet
// BerechneSummenspaltePlusMinus(Sender);
end;
Jetzt habe ich mal die Zwei Prozeduren in eine geschrieben.
IndexZeile[10,i] wird jetzt bis auf die &&vorletzte&& Zeile ausgefüllt.
Zeile (RowCount-1)-1 ist die vorletzte Zeile und nicht RowCount-1.
Warum??