Discussion :

[SubZero2]

Bonjour.

Dans mon programme je voudrait pouvoir definir une variable de type diferent en fonction d'un test ...

ex :

Code :

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

1
2
3
4
5
6
7
8
9
10
if True then
begin
   MyVar : TLabel;
   MyVar := TLabel.Create(Self);
end
else
begin
   MyVar : TEdit;
   MyVar := TEdit.Create(Self);
end;

Est-ce possible ou pas ?

[eponette]

Si tes deux classes héritent du même ancêtre, oui. C'est facile.

Code :

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

1
2
3
4
5
 
MyVar: TAncetre;
if True 
then MyVar := TClass1.create
else MyVar := TClass2.Create;

Dans ton cas, ils sont tous enfant de TControl. Mais tu devras vérifier le type réel avant d'utiliser les méthodes et propriétés des classes au-dessus de TControl.

[Qapoka]

Est ce qu'il n'y a pas un type Variant qui permet de ne pas declarer le type des le debut?

[SubZero2]

Genial ! Merci !

Les deux heritent donc de TOleControl.
Mon souci maintenant est que TOleControl ne contient pas la fonction "LoadFile" qui elle est presente dans TPdf et TAcroPdf..

Code :

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

1
2
3
4
5
6
   if (GetAcrobatReaderVersion = 7) then
      ViewerPDF := TAcroPdf.Create(self)
   else
      ViewerPDF := TPDF.Create(self);
 
   ViewerPDF.LaodFile('C:\temp.pdf');

Comment faire ?

[eponette]

Comme la variable semble être un objet, elle doit juste être déclaré comme l'ancêtre.

Mais si c'est plutôt du Integer et String, alors, le Variant est une option (mais perso, j'aime pas trop le variant. Faut peut-être essayer avec une classe qui gère cela...)

[SubZero2]

Gné ??

[gudul]

Tu dois utiliser le LoadFile de ta classe descendente car elle n'existe pas en virtuel dans le TOleControl

Code :

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

1
2
3
4
5
6
7
8
9
 
if (GetAcrobatReaderVersion = 7) then 
      ViewerPDF := TAcroPdf.Create(self) 
   else 
      ViewerPDF := TPDF.Create(self); 
if ViewerPDF is TAcroPdf then
   TAcroPdf(ViewerPDF).LoadFile('C:\temp.pdf')
else if ViewerPDF is TPDF then
   TPDF(ViewerPDF).LoadFile('C:\temp.pdf');

[Manopower]

Genial ! Merci !

Les deux heritent donc de TOleControl.
Mon souci maintenant est que TOleControl ne contient pas la fonction "LoadFile" qui elle est presente dans TPdf et TAcroPdf..

Code :

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

1
2
3
4
5
6
   if (GetAcrobatReaderVersion = 7) then
      ViewerPDF := TAcroPdf.Create(self)
   else
      ViewerPDF := TPDF.Create(self);
 
   ViewerPDF.LaodFile('C:\temp.pdf');

Comment faire ?

Il faut faire comme ça je pense :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
var
  ViewerPdf : TOleControl;
begin
if (GetAcrobatReaderVersion = 7) then
begin
  ViewerPDF := TAcroPdf.Create(self)
  (ViewerPDF as TAcroPdf).LoadFile('C:\temp.pdf');
end
else
begin
  ViewerPDF := TPDF.Create(self);
  (ViewerPDF as TPdf).LoadFile('C:\temp.pdf');
end;

Que les puristes me reprennent si je me trompe, mais je crois bien que c'est le principe du Polymorphisme.

Bon courage !

[SubZero2]

Okayyyy !!!

Fallait le dire !

Merci beaucoup pour vos reponse !

[eponette]

En gros, que dois-tu faire? Créer à la volée un TEdit ou un TLabel, ou alors est-ce une variable String ou Integer.

Parce que en Delphi, TEdit et TLabel ont un ancêtre commun qui est TControl. Donc tu peux déclarer ta variable comme du type TControl puis lors du create, donner le type que tu veux (TLabel ou TEdit).

Mais attention, comme la variable est de type Tcontrol, tu dois faire ceci:

Code :

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

if MyVar is TEdit then (Myvar as Tedit).Clear;

Parce que la methode Clear n'appartient pas à TControl.

Est-ce plus clair?

[Edit] Désolé, j'ai raté l'épisode sur le PDF car j'étais en train de répondre à ta question plus haut...[/Edit]

[SubZero2]

pas de probleme eponette !

En effet, je me bat avec Acrobat et ses ActiveX / Dll.
En gros, pour situer le probleme :
Jusqu'a la version 6 d'acrobat, l'activeX fourni est pdf.ocx et maintenant a partir de la 7 "l'activeX" est : AcroPdf.dll
Trop malin chez Adobe,

Donc, bah j'importe les 2 libraries et je creer ce qu'il faut en fonction de ce qu'il y a d'installé sur le poste client

encore !