Hallo
Ich habe folgendes Problem:
Delphi-Quellcode:
procedure TForm1.PlusMinus(Sender: TObject);
var
i :integer; k,l:Real;
begin
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';
end;
end; // Plus Minus Einfügen beendet
BerechneSummenspaltePlusMinus(Sender);
end;
procedure TForm1.BerechneSummenspaltePlusMinus(Sender:TObject);
var i,Summe :integer;
begin
Summe := 100; JvSG1.Cells[10,1] := '100'; //Startwerte
Label1.Caption:=JvSG1.Cells[10,1];
For i:= 1 to JvSG1.RowCount-1 do
begin
Summe := Summe + StrToInt(JvSG1.Cells[9,i]);
JvSG1.Cells[10,i] := IntToStr(Summe);
end;
end;
procedure PlusMinus ist fehlerfrei
erzeugt aus Vergleichswerten +1, 0 oder -1 in einer Spalte
procedure Berechne SummeSpalte... ist fehlerbehaftet
sämtliche Werte der PlusMinus Spalte sollen zu einem Startwert addiert werden und die Ergebnisse in einem Chart angezeigt werden.
Problem: keinerlei Anzeige in Spalte 10
Bitte um Hilfe