Discussion :

[Invité]

Bonjour,
je me demande si ce code d'assignation est correct. J'avoue utiliser de moins en moins le Pascal Object.

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;

avec

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;

Merci. Cordialement. Gilles