Pointer auf Object in Variant speichern und wieder auslesen

[FredlFesl]

Ich habs mal so gelöst:

Delphi-Quellcode:

Function VarToInt(aValue: Variant): Integer;
Begin
  Case VarType(aValue) Of
    varSmallint,
      varInteger,
      varShortInt,
      varByte,
      varWord,
      varLongWord,
      varInt64: Result := aValue;

    varSingle,
      varDouble,
      varCurrency,
      varDate: Result := Trunc(aValue);
    varOleStr,
      varStrArg,
      varString: Result := StrToIntDef(aValue, 0);
    varBoolean: If aValue Then
        Result := 1
      Else
        Result := 0;
  Else
    Result := 0;
  End;
End;