Problème de référence de classe

Version imprimable

20/06/2006, 17h34
nmathon

Problème de référence de classe

Bonjour,

J'ai une classe de base TDocument dans laquelle j'ai créé un constructor virtual et abstract afin que mes sous-classes implémentent obligatoirement ce constructeur.

De cette façon, je voulais lister mes types de classes dans un TListBox et utiliser le même code du bouton pour créer divers types d'objets dérivés de TDocument.

J'ai testé le code de cette page et ça fonctionne bien:
http://laurent-dardenne.developpez.c...es/metaclasse/

Par contre, je peux seulement l'utiliser pour une classe!

Dans l'exemple, il y a ceci: TRefMesClasses = class of TMesClasses;

Dans mon code, j'ai fait TDocuments = class of (TDoc1);

Sur mon code de bouton, ceci fonctionne et ça appelle le constructeur de la classe TDoc1 (docs étant un TObjectList):

docs.add(getClassByName(Listbox2.Items.Strings[ListBox2.ItemIndex]).Create());

Évidemment, le même code sur mon TDoc2 ne fonctionne pas, car je ne suis pas capable de faire un registerClassByName car c'est incompatible avec mon type TDocuments.

Merci de votre aide!
20/06/2006, 20h09
nmathon

En fait, j'essaie de faire exactement comme dans cet exemple:

http://www.developpez.net/forums/sho...ht=classbyname

Malheureusement, en créant le type avec ma classe de base, j'obtiens Abstract error de la part du compilateur.

salut

en fait il faut que tu creer une class abstraite
genre
Code:

1 2 3 4 5 6 7 8 9 10 TMetaclass = class of TBaseDocument; TBaseDocument = Class(Tobject); ... end; TDocument = Class(TBaseDocument) ... end; TDoc1 = Class(TBaseDocument) ... end;
@+ Phil

20/06/2006, 22h55
nmathon

Ça ne fonctionne toujours pas!

salut

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
type
  TMetaclass = class of TBasDocument;
 
var
  ListofObj : TStringList;
 
// Enregistrer une classe
procedure registerClassByName(classe: TMetaclass);
begin
  // Ajout de la classe si elle n'est pas déjà référencée
  if (ListofObj.IndexOf(classe.ClassName) = -1) then
  begin
    ListofObj.AddObject(classe.ClassName,TObject(classe));
  end;
end;
 
// Obtenir une classe par son nom
function getClassByName(nom: string): TMetaclass;
var
  i : integer;
begin
  // Recherche dans la liste des classByName
  i := ListofObj.IndexOf(nom);
  // si pas trouvé, on renvoie nil
  if (i = -1) then
  begin
    result := nil;
  end
  // si trouvé, on renvoie la classe associée
  else
  begin
    result := TMetaclass(ListofObj.objects[i]);
  end
end;
 
// Au début de l'application, enregistrer les documents :
ListofObj := TStringList.Create;
registerClassByName(doc2);
...
 
// Utilisation :
getClassByName(FormBddSql.DBLookupComboBoxTesteur.Text).Create ...;
...
// Fin d'application, libérer ListofObj
ListofObj.Free;

@+ Phil

Alors là, j'ai créé un nouveau projet de tests avec une classe de base TVehicule et une sous-classe TVoiture. En faisant exactement ce que tu as écris, j'obtiens le même résultat: Abstract error!

Par contre si je remplace TMetaClass = class of TVehicule par TMetaClass = class of TVoiture, et bien le message « Voiture créée! » s'affiche lorsque je clique sur le bouton.

Qu'est-ce que je fais de pas correct?

Merci!

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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, contnrs;
 
type
 
  TMetaClass = class of TVehicule;
 
  TVehicule = class(TObject)
 
     constructor create(); virtual; abstract;
 
  end;
 
  TVoiture = class(TVehicule)
 
     constructor create(); reintroduce;
 
  end;
 
  TForm1 = class(TForm)
    Button2: TButton;
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
  private
    { Déclarations privées }
    Vehicules: TObjectList;
    ListofObj: TStringList;
    procedure registerClassByName(classe: TMetaclass);
    function getClassByName(nom: string): TMetaclass;
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.DFM}
 
// Enregistrer une classe
procedure TForm1.registerClassByName(classe: TMetaclass);
begin
  // Ajout de la classe si elle n'est pas déjà référencée
  if (ListofObj.IndexOf(classe.ClassName) = -1) then
  begin
    ListofObj.AddObject(classe.ClassName,TObject(classe));
  end;
end;
 
// Obtenir une classe par son nom
function TForm1.getClassByName(nom: string): TMetaclass;
var
  i : integer;
begin
  // Recherche dans la liste des classByName
  i := ListofObj.IndexOf(nom);
  // si pas trouvé, on renvoie nil
  if (i = -1) then
  begin
    result := nil;
  end
  // si trouvé, on renvoie la classe associée
  else
  begin
    result := TMetaclass(ListofObj.objects[i]);
  end
end;
 
constructor TVoiture.create();
 
begin
 
   ShowMessage('Voiture créée!');
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 
   Vehicules := TObjectList.Create();
   ListofObj := TStringList.Create;
 
   registerClassByName(TVoiture);
 
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 
   FreeAndNil(Vehicules);
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
 
begin
 
   Vehicules.add(getClassByName(ListBox1.Items.Strings[ListBox1.ItemIndex]).Create());
 
end;
 
end.

salut

2 probleme Trouvé
Dans ton listbox tu n'as pas mis le nom de tes objet
et le create de ton decendant n'ete pas override

Voila le code corrigé

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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, contnrs;
 
type
 
  TMetaClass = class of TVehicule;
 
  TVehicule = class(TComponent)
     constructor create(); virtual; abstract;
  end;
 
  TVoiture = class(TVehicule)
    constructor create(); reintroduce;Override;
  end;
 
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
 //   ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
    Vehicules: TObjectList;
    ListofObj: TStringList;
    procedure registerClassByName(classe: TMetaclass);
    function getClassByName(nom: string): TMetaclass;
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.DFM}
 
// Enregistrer une classe
procedure TForm1.registerClassByName(classe: TMetaclass);
begin
  // Ajout de la classe si elle n'est pas déjà référencée
  if (ListofObj.IndexOf(classe.ClassName) = -1) then
  begin
    ListofObj.AddObject(classe.ClassName,TObject(classe));
  end;
end;
 
// Obtenir une classe par son nom
function TForm1.getClassByName(nom: string): TMetaclass;
var
  i : integer;
begin
  // Recherche dans la liste des classByName
  i := ListofObj.IndexOf(nom);
  // si pas trouvé, on renvoie nil
  if (i = -1) then
  begin
    result := nil;
  end
  // si trouvé, on renvoie la classe associée
  else
  begin
    result := TMetaclass(ListofObj.objects[i]);
  end
end;
 
constructor TVoiture.create();
begin
  ShowMessage('Voiture créée!');
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var
 voiture : TVoiture;
begin
  Vehicules := TObjectList.Create();
  ListofObj := TStringList.Create;
  registerClassByName(TVoiture);
  ListBox1.Items.Add('TVoiture')
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FreeAndNil(Vehicules);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Vehicules.add(getClassByName(ListBox1.Items.Strings[ListBox1.ItemIndex]).Create());
end;
 
end.

@+ Phil

21/06/2006, 16h46
nmathon

Oui, j'avais ajouté directement TVoiture dans le composant TListBox.

J'ai ajouté la clause override dans mon code original et ça fonctionne bien!

Merci beaucoup de ton aide!