Salut à tous,

Voilà mon problème c'est encore et toujours la POO...En fait je suis en train de faire un logiciel de simulation électrique, et tous les composants sont en faite un TImage avec des propriété propre (une image, un type, un identifiant, un point du réseau...)

Et en faite je voudrais faire une méthode qui me permette d'initialiser l'image (et d'autres variables) à la création de l'objet en passant seulement le type. Mais je bloque... Voici mon code, merci par avance pour l'aide apportée.

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
30
31
32
33
34
35
type
  TObjet = class(TImage)
  private
    fbranche_id:integer;
    ftypeobjet:integer;
    objet_id:integer;
    objet_visible, objet_selectionner:boolean;
    .....
  public
    Property selection:boolean read objet_selectionner write objet_selectionner;
    Property Data:TDataSource read aData write aData;
    Property num_id:integer read objet_id write objet_id;
    Property Afficher:boolean read objet_visible write objet_visible;
    Property typeObjet:integer read ftypeobjet write ftypeobjet;
    Property branche_id:integer read fbranche_id write fbranche_id;
    procedure PositionnerDataset;
    Constructor Create(AOwner:TComponent;kindof : integer); overload;
end;
 
 
implementation
 
{{------------------------------------------------------------
--------------------------------------------------------------}
constructor TObjet.create(AOwner:TComponent;kindof:integer);
begin
  inherited Create(AOwner);
  objet_selectionner:=true;
  objet_id:=kindof;
 //Objet.Picture.LoadFromFile('C:\gare.bmp');  //plante puisque l'objet n'est pas encore créé...
end;
{{------------------------------------------------------------
--------------------------------------------------------------}
 
end.
A+.