Discussion :

[MiJack]

Hello,

J'ai une fonction à laquelle je dois passer un paramètre facultatif, mais celui-ci peut-être de n'importe quel type.

Au début j'avais mis

Code :

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

procedure maFonction(obj : TObject = nil) ;

Mais bien sûr avec cette variante je ne peux pas passer des Integer ou des String qui ne sont pas des TObject.

J'ai essayé avec le type "variant", mais celui-ci ne peut pas avoir de valeur par défaut, donc je ne peux pas rendre le paramètre facultatif.

Y a-t-il d'autres possibilités ?

[anapurna]

salut


deux solution pour regler ton probleme

la 1°) la plus propre a mon gout
tu creer des objet pour chaque type que tu desir
exempe ObjInt ou ObjStr decendant de tobjet donc plus de sousis
exemple :

Code :

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

1
2
3
4
5
6
7
8
Type 
ObjInt = Class(Tobject)
   fvalue : Integer;
 Procedure setvalue(Value : integer);
 Function GetValue : integer; 
 property value : integer read GetValue write setvalue ;
end;
...

la deuxieme tu transtype ton integer

Code :

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

Tobject(mavaleur)

@+ Phil

[MiJack]

Ok, merci.

Mais qu'est-ce qui est "moins propre" avec le transtypage ? Des problèmes pour passer de l'Integer à l'Object ?

[anapurna]

salut

c'est une question d'etique soit tu developpe tout objet
proprement et la pas de soucis soit tu bidouille mais ca marche quand meme


@+ Phil

[MiJack]

Ok, merci pour tes explications.

[TicTacToe]

Juste un truc,

Pour les transtypages, attention à ce que le type casté à la place de TObjet ne dépasse pas la taille du TObject (donc 4 octets), donc Integer, boolean OK, mais pas extended...

et d'autre part, tu ne peux pas caster non plus les string aussi simplement (comme j'ai pu le voir dans le 1er post).

Pour les string, des solutions ont été proposées (par Sub0 il me semble?) pour palier à ce problème.

bon code!

[e-ric]

Salut

Essaie ceci :

Code :

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

1
2
 
procedure maFonction(const obj);

Tu ne spécifies pas de type. Le problème pour la suite est de pouvoier déterminer ce que tu as passé en paramètre.

Reporte-toi à l'aide en ligne.

Ton besoin me paraît bizarre. tu peux l'expliquer

cdlt

e-ric