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

[acaumes]

Bonjour,

Soit tu fais (Ligne 6) un create et alors tu fais un Assign (lignes 8 et 9 ce qui copie un objet dans un autre)

Soit tu fais des (lignes 8 et 9) := et alors tu ne fais pas de create car alors ton objet est EXACTEMENT celui que tu assignes (et dans ce cas la ligne 20 est aussi inutile car sinon tu libère l'objet assigné (soit SG01 Soit SG02 selon le cas) et de toutes façons l'assignation à nil doit être faite après (ligne 19).

Cordialement

[tourlourou]

Bonjour,

Autre possibilité : dans le Create de la fiche, attribuer les SG0X à une variable privée de type tableau[1..X] de grilles.
Et pour leur remplissage, les utiliser simplement comme le dit acaumes, en prenant soin de les créer si non fait en design ou au Create de la fiche.

[Invité]

Bonjour,
merci à vous deux.
Cordialement. Gilles