Функция VarAsType( const V: Variant;
VarType: Integer ): Variant;
Модуль: System
Описание
Функция преобразовывает значение переменной типа Variant в значение, Variant тип которого указан в параметре VarType. Значение параметра VarType должно соответствовать одному из значений поля VarType типа TVarData и не должно включать константы varArray или varByRef (Список констант TVarData.VarType см. в описании функции VarType). Если значение не может быть преобразовано к заданному типу, то возникает исключение EVariantError. Действие функция VarAsType аналогично действию процедуры VarCast.
Пример var
VString, VDateTime: Variant; begin
VString:= '28.02 10:45';
VDateTime:= VarAsType(VString, varDate);
MessageDlg( VDateTime, mtInformation, [mbOk], 0); end;