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