Stringgrid Plus Minus Vergleich

[fl63]

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

[DeddyH]

Spalte 10 oder Spalte 11? BTW: Wäre es nicht günstiger, Logik und Darstellung zu trennen? Ich würde mir ja ein 2-dimensionales Array (oder wenn es gemischte Zahlentypen sind, ein 1-dimensionales Array of record) deklarieren und da meine Zahlen reinpacken. Damit lässt es sich IMO viel besser rechnen, das StringGrid dient dann nur noch zur Darstellung des Array-Inhalts.

[fl63]

@DeddyH
Natürlich 11te Spalte.

Dennoch zeigt IndexSpalte 10 nichts an.

Trennung zwischen Logik und Anzeige ist für mein winziges Programm vielleicht nicht nötig.
Es interessiert mich dennoch. Im Anschluß an die Lösung dieses Problems, werde ich das ganze nochmals überdenken.

[alfold]

Und dies ist bei beiden korrekt?

Delphi-Quellcode:

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]);// i+1 ???

Gruss alfold

[fl63]

Zitat von alfold:

Und dies ist bei beiden korrekt?

Delphi-Quellcode:

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]);// i+1 ???

Gruss alfold

Bei beiden korrekt??
Was meinst du??

[alfold]

Zitat von fl63:

....
sämtliche Werte der PlusMinus Spalte sollen zu einem Startwert addiert werden und die Ergebnisse in einem Chart angezeigt werden.

Weil Du einmal Zeile i+1 zum füllen angibst und dann nur mit Zeile i die Summe berechnest. Obwohl in Zeile
JvSG1.Cells[9,1] := '00' '00' drinsteht?

Gruss alfold

[fl63]

Also die PlusMinus Prozedur funktioniert einwandfrei von der ersten bis zur letzten Zeile stehe Nullen plusEinsen oder MinusEinsen drin.

Die SummenProzedur hat den Startwert Summe= 100, und darauf sollen die Nullen usw. addiert werden Summe := Summe + InttoStr(Cell[9,i]).
Als Ergebnis soll in Cell[10,i] jeweils die Neue Summe stehen.

JvSG1.Cells[9,1] := '00' soll nur als Füllzeichen stehen, kann auch weggelassen werden.

Zitat von alfold:

Weil Du einmal Zeile i+1 zum füllen angibst und dann nur mit Zeile i die Summe berechnest.

Gruss alfold

Zeile i wird mit Zeile i+1 verglichen.
Der Quelltext ist vielleicht nicht modern aber korrekt.

[alfold]

Warum setzt Du nicht ein Breakpoint an der Stelle
 Summe := Summe + StrToInt(JvSG1.Cells[9,i]); und dann step by step die Werte auslesen ob es stimmt was da passieren soll.

Gruss alfold

[fl63]

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??

[alfold]

RowCount -1 ist die letzte Zeile. Verstehe deine Frage nicht.
Allerdings hätt es hier
JvSG1.Cells[9,i+1] knallen müssen! Weil Du auf eine Zeile zugreifst die nicht da ist!?

Seeehr mergwürdig

Gruss alfold