Функция 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;
|
главная
Смотрите также
