1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

var i : Integer;
    v : Variant;
begin
  i:= 2;
  v := i;
  case VarType(v) of
    varEmpty     : showmessage('$0000 Die Variante hat den Status Unassigned.');
    VarNull      : showmessage('$0001 Die Variante hat den Wert Null.');
    VarSmallint  : showmessage('$0002 16-Bit-Integer mit Vorzeichen (Typ Smallint).');
    VarInteger   : showmessage('$0003 32-Bit-Integer mit Vorzeichen (Typ Integer).');
    VarSingle    : showmessage('$0004 Gleitkommawert mit einfacher Genauigkeit (Typ Single).');
    VarDouble    : showmessage('$0005 Gleitkommawert mit doppelter Genauigkeit (Typ Double).');
    VarCurrency  : showmessage('$0006 Gleitkommawert für Währungsbeträge (Typ Currency).');
    VarDate      : showmessage('$0007 Datums-/Zeitwert (Typ TDateTime).');
    VarOleStr    : showmessage('$0008 Referenz auf einen OLE-String (dynamisch verwalteter Unicode-String).');
    VarDispatch  : showmessage('$0009 Referenz auf ein OLE-Automatisierungsobjekt (Zeiger auf IDispatch-Schnittstelle). ');
    VarError     : showmessage('$000A Betriebssystem-Fehlercode.');
    VarBoolean   : showmessage('$000B Boolescher 16-Bit-Wert (Typ WordBool).');
    VarVariant   : showmessage('$000C Variante (nur in Verbindung mit varianten Arrays).');
    VarUnknown   : showmessage('$000D Referenz auf ein unbekanntes OLE-Objekt (Zeiger auf IUnknown-Schnittstelle).');
    VarByte      : showmessage('$0011 8-Bit-Integer ohne Vorzeichen (Typ Byte).');
    VarString    : showmessage('$0100 Referenz auf einen dynamisch verwalteten langen String (Typ AnsiString).');
    VarTypeMask  : showmessage('$0FFF Bitmaske zur Ermittlung des Typencodes.');
    VarArray     : showmessage('$2000 Bit zur Kennzeichnung eines varianten Arrays.');
  else
    showmessage('was anderes');
  end;