Discussion :

[bidochon]

salut a tous,

Je tombe sur un petit os lors de l'écriture d'un composant orienté base de données.
Ce composant possède 2 champs qui sont eux mêmes des objets (TClientDataset et TDataProvider) que je souhaite lier constamment par la propriété dataset du provider.
Je pensais tout simplement faire comme si j'étais dans une fiche qui tenait mes 2 objets et déclarer quelquepart "en dur" et ne plus m'en occuper ... sauf que si je le colle dans le constructor de mon compo mais ça me jette car évidemment les deux objets sont à nil
y a t il un moyen de les lier ?

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
  TMonCompo = class(TAncetre)
  private
  protected
  public
    cds       : TClientDataset;
    dsp       : TDatasetProvider;
    constructor Create(AOwner:TComponent);override;
    Destructor  Destroy;override;
  published
  end;
 
implementation
 
Constructor TMonCompo.Create(AOwner:TComponent);
Begin
  inherited Create(Aowner);
  dsp.DataSet:= cds;         //ca plante là
End;

[Paul TOTH]

cela ne peut pas fonctionner puisque les champs ne sont pas initialisés.

deux solutions

1) le composant embarque les composants et il doit donc les créer

Code :

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

1
2
3
4
5
6
7
8
 
Constructor TMonCompo.Create(AOwner:TComponent);
Begin
  inherited Create(Aowner);
  dsp := TDatasetProvider.Create(Self);
  cds := TClientDataset.Create(Self);
  dsp.DataSet:= cds;         //ca plante plus
End;

2) ce sont des propriétés du composant définie à la souris et là c'est un peu plus compliqué et ça ne se passe pas dans le Constructor. Et tant que les propriétés n'ont pas été définies, il est normal qu'elles soient à nil.

[bidochon]

merci Paul,

effectivement instancier les composants dans le create ça résout le problème et il faut aussi les détruire proprement par un free dans le destructor