Bonjour,
je me demande si ce code d'assignation est correct. J'avoue utiliser de moins en moins le Pascal Object.
avec
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21 procedure TForm1.sgFillMonth(aYear, aMonth: integer); var aRow: integer; aSG: TStringGrid; begin aSG := TStringGrid.Create(nil); case aMonth of 1: aSG :=SG01; 2: aSG :=SG02; end; with aSG do begin RowCount := DaysInAMonth(nYearCurrent, aMonth) + 1; for aRow := 1 to RowCount - 1 do begin Cells[2, arow] := IntToStr(arow); end; end; aSG:= Nil; asG.Free; end;
Merci. Cordialement. Gilles
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 type TForm1 = class(TForm) cbYEAR: TComboBox; SG01: TStringGrid; SG02: TStringGrid; private procedure sgFillMonth(aYear, aMonth : Integer); public end;
Partager