Prism Zahlen hochzählen

Thema durchsuchen

Ansicht

Themen-Optionen

Zahlen hochzählen

Ein Thema von Overclocker · begonnen am 26. Feb 2007 · letzter Beitrag vom 27. Feb 2007

Vorheriger Beitrag

Nächster Beitrag

uwewo

Registriert seit: 14. Jul 2004
Ort: Karlsruhe
479 Beiträge

Delphi 2006 Professional

#18

Re: Zahlen hochzählen

26. Feb 2007, 20:56

Ok, habe heute einen guten Tag.

markieren

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