Discussion :

[toure32]

Bonjour a tous j'ai créer un objet :

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
22
23
24
TEmplois = class(TVirtua)
  {IOMETADATA stored;
    Classe: Reference(TClasse);
    CoursProgram: References(TCoursProgram);
    Periode: Reference(TPeriode); }
    _Classe: TInstantReference;
    _CoursProgram: TInstantReferences;
    _Periode: TInstantReference;
  private
    function GetClasse: TClasse;
    function GetCoursProgram(Index: Integer): TCoursProgram;
    function GetCoursProgramCount: Integer;
    function GetPeriode: TPeriode;
    procedure SetClasse(Value: TClasse);
    procedure SetCoursProgram(Index: Integer; Value: TCoursProgram);
    procedure SetPeriode(Value: TPeriode);
  public
    property CoursProgram[Index: Integer]: TCoursProgram read GetCoursProgram
        write SetCoursProgram;
    property CoursProgramCount: Integer read GetCoursProgramCount;
  published
    property Classe: TClasse read GetClasse write SetClasse;
    property Periode: TPeriode read GetPeriode write SetPeriode;
  end;

mon probleme setrouve sur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
property CoursProgram[Index: Integer]: TCoursProgram read GetCoursProgram
        write SetCoursProgram;

quant j'instancie la classe et que je veux affecter une valeur à la property CoursProgram je recois un message de index out of bound

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
vEmplois :=TEmplois.crate();
   vEmplois.CoursProgram[1]:= TCoursProgram.create();

Merci de m'aider.
cordialement.

[pinson]

Il faut que tu fasses une fonction d'ajout, tu ne peux pas pointer sur un espace que tu n'as pas alloué. Je te propose de faire un essai avec ce que je te donne comme code.

Attention, ta class doit hériter de TObjectList.

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
22
23
24
25
26
27
28
29
 
 
TMaClass = class(TObjectList)
private
    function GetItem(Index: Integer): TMonTruc;
    procedure SetItem(Index: Integer; aTruc: TMonTruc);
public
    property Items[Index: Integer]: TMonTruc read GetItem write SetItem; default;
    function Add(aTruc : TMonTruc): Integer;
end;
 
implementation
 
function TMaClass.Add(aTruc : TMonTruc): Integer;
begin
  Result := inherited Add (aTruc);
end;
 
function TMaClass.GetItem(
  Index: Integer): TMonTruc;
begin
  Result := inherited Items[Index] as TMonTruc;
end;
 
procedure TMaClass.SetItem(Index: Integer;
  aTruc: TMonTruc);
begin
  inherited Items[Index] := aTruc;
end;