Ok, habe heute einen guten Tag.
Delphi-Quellcode:
procedure StringGridDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if ACol >= 3 then //Prüfe hier erst ab 3. Spalte
if ((StringGrid1.Cells[ACol,ARow] = '4') //wenn in akt. Spalte eine 4 steht
and (StringGrid1.Cells[ACol+1,ARow] = '4')) //und in akt. Spalte + 1 auch
then StringGrid1.Cells[AXCol-1,ARow] := '0'; //dann setze eine 0 in akt. Spalte - 1
end;
Uwe