Delphi. Функция VarTypeToDataType( VarType: Integer ): TFieldType;

Функция VarTypeToDataType( VarType: Integer ): TFieldType;

== Данная функция поддерживается только в Delphi 5 ==

type TFieldType = (ftUnknown, ftString, ftSmallint, ftInteger, ftWord, ftBoolean, ftFloat, ftCurrency, ftBCD, ftDate, ftTime, ftDateTime, ftBytes, ftVarBytes, ftAutoInc, ftBlob, ftMemo, ftGraphic, ftFmtMemo, ftParadoxOle, ftDBaseOle, ftTypedBinary, ftCursor, ftFixedChar, ftWideString, ftLargeint, ftADT, ftArray, ftReference, ftDataSet, ftOraBlob, ftOraClob, ftVariant, ftInterface, ftIDispatch, ftGuid);

Модуль: Db

Описание
Функция преобразовывает значение, определяющее тип Variant-переменной, в наиболее подходящее значение типа поля TFieldType.

Пример
var
   V: Variant;
   T1: Integer;
   T2: TFieldType;
begin
   V:= True;
   T1:= VarType(V);       // T1:= 11 (varBoolean)
   T2:= VarTypeToDataType(T1);     //T2:= ftBoolean
...
end;

Справочник по Delphi

Уроки Delphi