Détection du type d'un variant

Bonjour,

j'ai actuellement une procédure déclarée ainsi

Code:

---

procedure MaProd(aValue : variant; isInteger : boolean; ...);

---

Je peux l'appeler de 2 façons :

Code:

---

1 2 3 4 5 6 7

var sValue : string; nValue : integer; begin [...] MaProd(sValue, False, ...); MaProd(nValue, True, ...);

---

J'aimerais savoir s'il est possible, compte tenu du mode d'appel (déclaration de nValue ou sValue dans les var), de se passer de la variable isInteger dans la déclaration de la procédure. Autrement dit, peut-on détecter le type du variant dans la procedure MaProd ?

Cordialement. Gilles

Sous Delphi, tu as la fonction VarType()
J'imagine que c'est valable pour Lazarus.
Regarde l'exemple Delphi.

Oui, c'est effectivement cela :

Code:

---

1 2 3 4 5 6 7 8 9

uses variants; [...] procedure MaProd(aValue : variant; ...); begin if (VarType(aValue) <> varshortint) //Un entier comme 0 est considéré comme un shortint donc prob si formulation MaProd(0, ...); and (VarType(aValue) <> varinteger) and (VarType(aValue) <> varstring) then exit; [...] end;

---

Merci.
Cordialement. Gilles