Stringgrid Plus Minus Vergleich

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