Discussion :

[Bruno@Chrysis]

Bonjour,
J'ai un problème avec le compilateur de D6:

Soit une classe :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
TMaClass = class
private
  FTruc: integer;
public
  contructor Create;
end;
 
Constructor TMaClass.Create;
begin
  inherited;
  FTruc := 10;
end;

et soit une fonction :

Code :

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

1
2
3
4
5
 
function CreateObj(LaClass: TClass):TObject;
begin
   Result := LaClass.Create;
end;

bien sur tout ceci est un exemple, dans mon projet j'ai plusieurs classes...
enfin bref, le compilateur ne me compile pas le TMaClass.create() sous pretexe qu'il est (selon lui) jamais appelé... Comment puis-je le forcer à compiler correctement mon code ? à part mettre un bout de code pour le forcer du genre :

Code :

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

1
2
3
 
ObjetQuiSertPas := TMaClass.Create();
ObjetQuiSertPas.Free;

[Hauwke]

Bonjour,
J'ai un problème avec le compilateur de D6:

Soit une classe :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
TMaClass = class
private
  FTruc: integer;
public
  contructor Create;
end;
 
Constructor TMaClass.Create;
begin
  inherited;
  FTruc := 10;
end;

et soit une fonction :

Code :

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

1
2
3
4
5
function CreateObj(LaClass: TMAClass):TObject;
begin
   Result := LaClass.Create;
end;

bien sur tout ceci est un exemple, dans mon projet j'ai plusieurs classes...
enfin bref, le compilateur ne me compile pas le TMaClass.create() sous pretexe qu'il est (selon lui) jamais appelé... Comment puis-je le forcer à compiler correctement mon code ? à part mettre un bout de code pour le forcer du genre :

Code :

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

1
2
3
 
ObjetQuiSertPas := TMaClass.Create();
ObjetQuiSertPas.Free;

Bonjour,
Les ajouts en rouge devraient clouer le bec de votre compilateur, non?
Cordialement,
Hauwke

[Bruno@Chrysis]

J'ai du mal m'exprimer, en fait c'est bien TClass que je passe car la classe peut varier... pour un exemple complet, regarder le code de graphic.pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TPicture.ForceType(GraphicType: TGraphicClass);
begin
  if not (Graphic is GraphicType) then
  begin
    FGraphic.Free;
    FGraphic := nil;
    FGraphic := GraphicType.Create;
    FGraphic.OnChange := Changed;
    FGraphic.OnProgress := Progress;
    Changed(Self);
  end;
end;

en gros c'est cela que je veux faire...
En fait j'ai résolu mon problème en creant un contructeur virtuel pour ma classe de base et en surchageant ce contructeur et là tout marche bien

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
 
TClassDeBase = Class
public
  contructor Create; virtual;
end;
 
TClassBase = class of TClassDeBase;
TMaClass = class(TClassDeBase )
public
  contructor Create; override;
end;
 
function CreateObj(LaClass: TClassDeBase):TObject;
begin
   Result := LaClass.Create; // maintenant mon contructeur est bien appelé.
end;