Schleife in einseitiger Auswahl

[Bummi]

geht auch anders und ist ohne Schaltjahrberücksichtigung

Delphi-Quellcode:

const
  MTArray:Array[1..12] of Integer=(31,28,31,30,31,30,31,31,30,31,30,31);
var
  a,b,c:Integer;
begin
  SgAnzeige.Cells[0,0] := 'Tag';
  SgAnzeige.Cells[1,0] := 'Termine';

  a:=3;
  b := 0;
  SgAnzeige.ColCount := MTArray[a] + 1;
  for c:=1 to MTArray[a] do
  SgAnzeige.cells[c,b]:= IntToStr(c) + '.';
end;