Typ eines Variant ermitteln

[eddy]

Hallo Leute,

ich möchte in einer Prozedur einen Wert value : Variant
übergeben.

Entsprechend dem tatsächlichen Typ soll dann entsprechend reagiert werden. Ich suche eine Möglichkeit, den tatsächlichen Typ zu erkennen, damit ich nicht eine Prozedure für Integer, eine für Float, eine für Boolean usw. schreiben muß.

Sollte in etwa so aussehen:

case Typ(value) of
bool: begin .... end;
int: begin .... end;
date: begin .... end;
float: begin .... end;

end;

Falls jemand ein Tip für mich hat, eine Idee oder Anregung, dann her damit!!


mfg
eddy

[jbg]

Delphi-Quellcode:

case VarType(v) of
  varBoolean: ;
  varInteger: ;
  varDate   : ;
  varDouble : ;
  ...
end;

[Touchdown]

Variant ist ein eigener Typ und nur schwer anderen Typen zuzuordnen. Eine nicht sehr elegante Art wäre z.B. in Try-Except-Blöcken eine Umwandlung vorzunehmen. Im Fehler-Fall weiss man, der Typ ist es nicht :mrgreen:. Auf diese Art könnte man sich eine funktionierende Funktion machen.

Zu beachten wäre auch, eine 2 kann auch ein String sein '2' :freak:

[eddy]

Hallo jbg,

vielen Dank!! Das war genau das, was ich gesucht habe. Funktioniert bestens.

Hi Touchdown,

hab' auch schon an so eine Variante gedacht, aber gehofft - diesmal entsprechend jbg's Antwort erfolgreich - daß es eine bessere Lösung gibt.

mfg
eddy