Creation de variable a la volée ...

Bonjour.

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

ex :

Code:

---

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 ?

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

Code:

---

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.

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

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:

---

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 ?

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

Gné ?? 8O :?

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

Code:

---

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');

---

Citation:

---

Envoyé par 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:

---

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:

---

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 !

Okayyyy !!!

Fallait le dire ! :D

Merci beaucoup pour vos reponse !

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:

---

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]

pas de probleme eponette ! :wink:

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, :roll: :evil:

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

:merci: encore !