Discussion :

[Invité]

Bonjour,

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

Code :

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

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

Je peux l'appeler de 2 façons :

Code :

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

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

[DOLPat®]

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

[Invité]

Oui, c'est effectivement cela :

Code :

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

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