Discussion :

[pointer]

je veux faire une procédure qui accepte des objets de types differents
exemple : maprocedure(objet:TObjet1);
maprocedure(objet:TObjet2);
etc...
ces objets ont une propriété commune que j'utilise dans la procedure et je peux pas faire overload pour tout les types parceque je ne connais pas le nombre d'objets et le transtypage ne marche pas.

[Andnotor]

Cette propriété devrait être déclarée dans une classe ancêtre et tes autres objets dériver de cette classe.

L'objet passé à ta procédure sera du type classe ancêtre.

[Dr.Who]

tout à fait.

tout comme les propriétés Width, Height, Caption, Color que possède la pluparts des composants VCL et qui sont toutes héritées de TControl.


exemple par le code :

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
type
  TBaseObject = class(TObject)
  private
    fBP : integer;
  published
    property BaseProp : integer read fBP write fBP default 0;
  end;
 
  TObjectA = class(TBaseObject)
  published
    property BaseProp default 1;
  end;
 
  TObjectB = class(TBaseObject)
  published
    property BaseProp default 2;
  end;
 
function IsBaseObject(aObj : TObject): boolean;
begin
  result := aObj is TBaseObject;
end;
 
function IsObjectA(aObj : TBaseObject): boolean;
begin
  result := aObj is TObjectA;
end;
 
function IsObjectB(aObj : TbaseObject): boolean;
begin
  result := aObj is TObjectB;
end;

[Kaféine]

Salut,

une autre solution serait l'utilisation d'une interface contenant la propriété commune. les différents objets doivent evidemment la supporter.

Code :

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

1
2
 
procedure MaProcedure(const AIntf: IInterfaceAvecPropCommune);