Stringgrid quartalsweise die Spalten durschnummerieren

[spartakus]

Hallo,

Die Stringgrid Spalten werden fortlaufend nummeriert.

Code:

Stringgrid.Cells[0,i] :=i+1;

so kann ich Stringgrid in der vordersten Spalte von oben nach unten
die Zahlen 12345... Schreiben.
----------
aber wie kann ich quartalsweise die Spalten durschnummerieren
so wie ich haben möchte: 3 6 9 12... usw.

danke!

[DeddyH]

Quick 'n Dirty:

Delphi-Quellcode:

Zahl := Succ(i) * 3 mod 12;
if Zahl = 0 then
  Zahl := 12;       
Stringgrid.Cells[0,i] := Zahl;

[spartakus]

Danke!

Sorry,
wie Soll ich "Zahl" definieren?
als...

[DeddyH]

Nimm doch Cardinal, allerdings musst Du dann auch IntToStr beim Zuweisen an die Zellenbeschriftung verwenden, habe ich leider vergessen.

[spartakus]

ok ...Danke!