Zahlen hochzählen

[Klaus01]

Das sollte der Code so ungefähr machen.

Delphi-Quellcode:

i:=4;
// wer setzen
While (i <= StringGrid1.RowCount -1) do  // Start bei Zeile 4 gehe bis zum Ende der Zeilen
  begin 
    if (i+1) <= StringGrid1.RowCount -1 then     // i+1 kleiner als max Zeilen
      if (StringGrid1.cells[i,3] = Wert) and (StringGrid1.cells[i+1,3] = Wert) then
        begin
          i:=i+2;
          StringGrid1.cells[i-1,3] :='0';
        end
      else
       i:=i+1;
  end;

[edit] code korrigiert