Delphi-PRAXiS - Stringgrid quartalsweise die Spalten durschnummerieren

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Stringgrid quartalsweise die Spalten durschnummerieren (https://www.delphipraxis.net/168496-stringgrid-quartalsweise-die-spalten-durschnummerieren.html)

spartakus

24. Mai 2012 17:16

Stringgrid quartalsweise die Spalten durschnummerieren

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

24. Mai 2012 17:30

AW: Stringgrid quartalsweise die Spalten durschnummerieren

Quick 'n Dirty:

Delphi-Quellcode:

			Zahl := Succ(i) * 3 mod 12;

if Zahl = 0 then

  Zahl := 12;       

Stringgrid.Cells[0,i] := Zahl;

spartakus

24. Mai 2012 17:56

AW: Stringgrid quartalsweise die Spalten durschnummerieren

Danke!

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

DeddyH

24. Mai 2012 18:00

AW: Stringgrid quartalsweise die Spalten durschnummerieren

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

spartakus

24. Mai 2012 18:52

AW: Stringgrid quartalsweise die Spalten durschnummerieren

ok ...Danke!

Alle Zeitangaben in WEZ +1. Es ist jetzt 00:49 Uhr.