Création d'un object sur classe dynamique

Version imprimable

16/04/2007, 12h32
TicTacToe

Création d'un object sur classe dynamique
Bonjour :)

j'aimerais savoir s'il est possible de créér une instance sans connaitre le type de la classe à l'avance, petit exemple dans l'idéal de ce que je souhaite:

1ere unité: le 'uses' ne contient pas la 2eme unité
Code:

1 2 3 4 function Instancier( MaClasse: TClass ): TObject; begin Result := MaClasse.Create; // <-- là violation d'accès... end;
2eme unité
Code:

1 2 3 4 5 6 7 8 9 10 11 12 type TClasseA = class( TObject ) constructor create; dummyA: integer end; procedure utilisation; var A: TClasseA; begin A := Instancier( TClasseA ); end;
Voila, j'ai d'autres solution pour contourner cela avec des callback, mais j'aimerais bien les éviter.

Merci !
16/04/2007, 12h58
ebastien

Bonjour,
A priori, ce code ne devrait même pas compiler puisque la variable A est de type TClasseA et que la fonction Instancier retourne un TObject. Le compilateur devrait retourner un type incompatible (Impossible d'affecter un TObject à un TClasseA).
Eb.
16/04/2007, 13h09
philnext

C'est quoi le but en fait ?

Je ne vois que ca pour l'instant mais à creuser!

Code:

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
type
  TForm1 = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
  TMaClass = class(TObject)
  private
    dummy: Integer;
  public
    procedure Show;
  end;
 
  TObjectClass = class of TObject;
 
 
function Instancier(const AClass: TObjectClass): TObject;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function Instancier(const AClass: TObjectClass): TObject;
begin
  Result := AClass.Create;
end;
 
 
procedure TForm1.btn1Click(Sender: TObject);
var
  A: TMaClass;
begin
  A := TMaClass(Instancier(TMaClass)); //faut caster la :( 
  A.Show;
end;
 
{ TMaClass }
 
procedure TMaClass.Show;
begin
  ShowMessage('Salut');
end;

Bonjour,

Modifies juste la procedure utilisation:
Code:

1 2 3 4 5 6 procedure utilisation; var A: TClasseA; begin A := TClasseA(Instancier(TClasseA)); end;
@+

ou ca
Code:

1 2 3 4 5 6 7 8 9 procedure TForm1.btn1Click(Sender: TObject); var A: TObject; begin A := Instancier(TMaClass); (A as TMaClass).Show; end;
mais bon toujours un cast ....

pour accéder a la méthode show.
solution peut etre avec RTTI?

Voila mon ultime solution .... :roll:

unit1:

Code:

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
 
  TForm1 = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
 
function Instancier(const AClassStr: string): TObject;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function Instancier(const AClassStr: string): TObject;
var
  AClass: TPersistentClass;
begin
  AClass := FindClass(AClassStr);
  Result := AClass.Create;
end;
 
procedure TForm1.btn1Click(Sender: TObject);
var
  A: TObject;
begin
  A := Instancier('TMaClass');
  ShowMessage(A.ClassName);
end;

et unit2

Code:

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
 
unit Unit2;
 
interface
 
uses Classes, Dialogs;
 
type
  TMaClass = class(TPersistent)
  private
    dummy: Integer;
  public
    procedure Show;
  end;
 
implementation
 
{ TMaClass }
 
procedure TMaClass.Show;
begin
  ShowMessage('Salut');
end;
 
initialization
  RegisterClass(TMaClass);
 
end.

mais bon pour accèder a la méthode Show de TMaClass c'est une autre histoire :oops:

16/04/2007, 14h24
TicTacToe

Merci pour vos infos ! :D

@ebastien
si si, ca compile, mais j'ai une violation d'accès au moment du create comme spécifié dans le code que je montre (ca m'étonne qu'à moitié d'ailleurs...)

@Philnext
J'ai simplifié au maximum pour montrer uniquement ce que je souhaite.
Mon objectif, c'est que j'ai une unité qui gère une TStringList avec des object attachés. Ces objets sont instanciés dans cette unité, mais peuvent être de differents type (le type est fourni via une paramètre de type TClass...)
Comme cette unité est générique, hors de question pour moi, qu'elle "connaisse" les unités utilisatrices ou sont effectivement déclarées ces classes.

@Kafeine
Ta 1ere approche avec "class of" m'interesse, je vais creuser :)
Pour le cast c'est pas grave, cela est même nécessaire, l'unité utilisatrice connait ses objets donc rien d'anormal à caster par la suite.
(en réalite, l'objet instancié avec une certaine classe, est stocké dans un objet générique TObject puisque dans une TStringList... donc le cast en utilisation est tout à fait normal par la suite)
Par contre,

@Fabrice
Effectivement, il manquait un cast dans ma proc. "utilisation", mais là n'était pas le problème ;)
16/04/2007, 14h37
Kaféine

Citation:

Envoyé par TicTacToe

Pour le cast c'est pas grave, cela est même nécessaire, l'unité utilisatrice connait ses objets donc rien d'anormal à caster par la suite.
(en réalite, l'objet instancié avec une certaine classe, est stocké dans un objet générique TObject puisque dans une TStringList... donc le cast en utilisation est tout à fait normal par la suite)

ok je vois mais la 2eme solution est la pour solutionner ce qui suit

Citation:

Envoyé par TicTacToe

1ere unité: le 'uses' ne contient pas la 2eme unité

d'ou met soucis de cast sans l'unité dans uses c'est dur :mrgreen:

Tu devrais regarder la TCollection et TCollectionItem, il a ce genre de mécanisme, sinon, j'ai aussi ce genre de code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
type
  TLectureType = (ltLecture1, ltLecture2);
  TResultatClass = class of TResultat;
 
  TResultat = class(TPersistent)
  ...
  end;
 
  TResultatLecture1 = class(TResultat)
  ...
  end;
 
  TResultatLecture2 = class(TResultat)
  ...
  end;

Code:

1
2
const
   RESULTAT_CLASSES: array[TLectureType] of TResultatClass = (TResultatLecture1, TResultatLecture2);

Code:

1
2
3
...
AResultat := RESULTAT_CLASSES[TypeLecture].Create();
...

Et cela fonctionne sans problème ...

ou Encore

Code:

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
36
37
38
type
   TAssociatedEdit = class(TEdit)
   private
      FKeyField: string;
      FKeyValue: string;
   published
      property KeyField: string read Fkeyfield write FKeyField;
      property KeyValue: string read Fkeyvalue write FKeyValue;
   end;
 
   TAssociatedCheckBox = class(TCheckBox)
   private
      FKeyField: string;
      FKeyValue: string;
   public
      procedure Click; override;
   published
      property KeyField: string read Fkeyfield write FKeyField;
      property KeyValue: string read Fkeyvalue write FKeyValue;
   end;
 
   TAssociatedField = class(TObject)
   public
     FieldName: string;
     Value: string;
     AssociatedClass: TWinControlClass;
     constructor Create(const AName, AValue: string; AClassType: TWinControlClass);
   end;
 
 
{ TAssociatedField }
 
constructor TAssociatedField.Create(const AName, AValue: string; AClassType: TWinControlClass);
begin
   FieldName := AName;
   Value := AValue;
   AssociatedClass := AClassType;
end;

et à un moment j'ai

Code:

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
 
function TCensoredForm.AffectClickAndCaption(...; Name, Value: string; const ClassType: TWinControlClass = nil): TMenuItem;
begin
   Result := TMenuItem.Create(Self);
   ...
   Result.Tag := Integer(TAssociatedField.Create(Name, Value, ClassType))
 
   MenuRoot.Add(Result);
end;
 
procedure TCensoredForm.AddComponent(Menu: TMenuItem);
var
   Association: TAssociatedField;
   AddedControl: TWinControl;
   UniqueName: Int64;
begin
   if not Assigned(Menu) then Exit;
   if Menu.Tag = 0 then Exit;
   Association := TAssociatedField(Menu.Tag);
 
   QueryPerformanceCounter(UniqueName);
 
   AddedControl := Association.AssociatedClass.Create(Self); 
   AddedControl.name := '_' + FormatDateTime('YMDHNS', Now()) + IntToStr(UniqueName) + IntToStr(Random(1000));
   AddedControl.Left := CurrentPoint.X;
   AddedControl.Top := CurrentPoint.Y - AddedControl.Height;
   AddedControl.Parent := PageControlDynamic.ActivePage;
...

16/04/2007, 15h01
Fabrice ROUXEL 1

Il y a la solution d'implémenter la pattern Fabrique ou Fabrique abstraite.
Comment faire cela?
Chaque classe enregistrée dans la fabrique à l'aide de RegisterClass aura une fonction (virtuelle ou surchargée)que la factory appelera.
Le stoquage se fera de manière usuelle dans une TClassList plutôt qu'une stringlist.
16/04/2007, 15h06
ShaiLeTroll

On dirait un copier coller d'un tutoriel Dot Net mal traduit ...

Ensuite sa TStringList semble stocker les objets et non les classes d'après ce que j'ai compris !
16/04/2007, 15h20
TicTacToe

Merci à tous !

ca marche, je me suis servi des "class of" qui sont exactement ce que je recherchais pour mon cas :)

@Kafeine
Merci de m'avoir mis sur la voie !

@ShaiLeTroll
Effectivement, les TCollectionItem et TCollectionItemClass sont un bon exemple, et j'avais déjà jeté un coup d'oeil, étant donné que c'est l'exemple donné dans l'aide sur "class of" :D

merci a+
16/04/2007, 15h23
Fabrice ROUXEL 1

Tiens on dirait du code de newbies copier coller sur le travail des collégues.
Renseignes toi sur le pattern fabrique avant d'écrire des énormités!
Une fabrique d'objets instancie précisemment ces objets via des classes.
Comment peut t'il en être autrement?
16/04/2007, 15h38
ShaiLeTroll

Effectivement, c'est du code dans des programmes écrits par des collègues que j'ai modifié et dont j'ai ajouté ce type de syntaxe pour justement rendre le code plus souple ... alors t'es gentil mais le newbies, il a 8 ans de carrière c'est déjà pas si mal ...

j'aurais pu copier le code de la couche de persistance que j'ai écrite, mais noyez dans le RTTI, j'ai un peu de mal à donner des exemples simple au sujet du "Class of", l'utilisation d'une TClassList avec le mécanisme de recensement, lorsque l'on utilise l'instanciation d'objet via le flux de composant persistant de Delphi, tel que des DFM (issu d'un XML transformé via un XSL pour obtenir un DFM facilement chargeable sans effort, sans TXMLDocument avec un mapping manuel ...)

Alors sinon, tu m'excusera d'avoir juste survolé le bouquin sur le Design Patterns en C# du Bureau (je fut apprenti, j'ai tout appris sur le tas, j'ai peu lu de bouquin alors comme je n'ai vu les patterns qu'avec Java et .Net, tu m'excusera de l'honteux amalgame), je n'ai surement pas le bon vocabulaire (il est en anglais et je suis terriblement mauvais en anglais, alors je n'ose pas traduit les mots en français, qenre fichiers waves -> ondes, ça sonne si mal ...), mais ta formulation dans ton poste était très étrange à mon gout ("Comment faire cela?") ... cela faisait très prof ...

Oh eh doucement les gens ;) Pas la peine de traiter tout le monde de débutant. Ce sujet est déjà assez intéressant et pas évident en soi.

Maintenant la plupart des solutions traitées jusqu'ici étaient très bonnes. La fabrique d'objets est en particulier la solution ultime, je pense, en cas de classes tout à fait générales (descendantes de TObject).

Mais le langage Delphi permet une solution beaucoup plus intéressante s'il s'agit d'instances de classes qui dérivent toutes d'un ancêtre commun déjà suffisamment personnalisé pour que tous les descendants aient un constructeur semblable (mêmes paramètres).

Cette solution est d'ailleurs utilisée par la VCL avec le type TComponent, qui je vous le rappelle, a un constructeur virtuel, que tout nouveau descendant se doit de surcharger.

L'idée est donc d'avoir une classe de base qui possède un constructeur virtuel, et que tous les descendants surchargent ce constructeur. Ensuite, on peut utiliser un class of pour passer le type en paramètre. En déclarant ce type comme class of TAncetreCommun, on peut faire appel directement au constructeur virtuel.

Example :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 type TAncetreCommun = class public constructor Create(Param : integer); virtual; end; TAncetreCommunClass = class of TAncetreCommun; TMaListe = class private FItemClass : TAncetreCommunClass; public function Add : TAncetreCommun; end; function TMaListe.Add : TAncetreCommun; begin Result := FItemClass.Create(5); end;
Code:

1 2 3 4 5 6 7 type TDescendant = class(TAncetreCommun) public constructor Create(Param : integer); override; end; TMaListe.Create(TDescendant);

16/04/2007, 17h49
TicTacToe

Farpaitement Sjrd :D

C'est exactement ce que j'ai fais ( dans le principe) ! Tu as bien résumé la situation.