Problème de référence de classe

**nmathon** · 20/06/2006, 17h34

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!

**nmathon** · 20/06/2006, 20h09

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.

**anapurna** · 20/06/2006, 22h13

salut

en fait il faut que tu creer une class abstraite
genre

Code :

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

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

**nmathon** · 20/06/2006, 22h55

Ça ne fonctionne toujours pas!

**anapurna** · 21/06/2006, 00h29

salut

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
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

**nmathon** · 21/06/2006, 14h47

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 :

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
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.

**anapurna** · 21/06/2006, 16h26

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 :

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
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

**nmathon** · 21/06/2006, 16h46

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!

Problème de référence de classe

Delphi

Discussions similaires

Partager

Partager