Правильная ссылка на эту страницу
http://az-design.ru/Support/SoftWare/Delphi/D3/SB37DataType.shtml

Глава 37. TField.DataType

Свойство DataType

Затрагиваемые объекты Все производные классы TField
Назначение Возвратить тип поля ассоциированного поля.
Объявление property DataType: TFieldType
Пример синтаксиса
function Tflddlg.demDataType(theField: TField): string; 

var
tempStr: string; tft: TFieldType; tfts: string; begin try tft := theField.DataType; case tft of ftUnknown: tfts := 'ftUnknown'; ftString: tfts := 'ftString'; ftSmalllnt: tfts := 'ftSmalllnt'; ftlnteger: tfts := 'ftlnteger'; ftWord: tfts := 'ftWord'; ftBoolean: tfts := 'ftBoolean'; ftFloat: tfts := 'ftFloat'; ftCurrency: tfts := 'ftCurrency'; ftBCD: tfts := 'ftBCD'; ftDate: tfts := 'ftDate'; ftTime: tfts := 'ftTime'; ftDateTime: tfts := 'ftDateTime'; ftBytes: tfts := 'ftBytes'; ftVarBytes: tfts := 'ftVarBytes'; ftAutoInc: tfts := 'ftAutoInc'; ftBlob: tfts := 'ftBlob'; ftMemo: tfts := 'ftMemo'; ftGraphic: tfts := 'ftGraphic'; ftMemo: tfts := 'ftFmtMemo'; ftParadoxOle: tfts := 'ftParadoxOle'; ftDBaseOle: tfts := 'ftDBaseOle'; ftTypedBinary: tfts := 'ftTypedBinary'; end; Result := theField.Name + '.DataType =' + tfts; except on E:EDataBaseError do Result := E.Message; end; end;
Описание Эта функция выбирает свойство DataType для заданного поля и использует оператор case для преобразования результата TFieldType в строку. Она затем объединяет его с описательным текстом, возвращаемым вызывающему оператору. Ошибки базы данных перехватываются посредством исключения.
[Свойство Alignment] [Свойство AsBoolean] [Свойство AsCurrency] [Свойство AsDateTime] [Свойство AsFloat] [Свойство AsInteger] [Метод Assign] [Метод AssignValue] [Свойство AsString] [Свойство AsVariant] [Свойство AttributeSet] [Свойство BlobType] [Свойство Calculated] [Свойство CanModify] [Свойство CheckRange] [Метод Clear] [Конструктор Create] [Свойство Currency] [Свойство DataSet] [Свойство DataSize] [Свойство DataType] [Деструктор Destroy] [Свойство DisplayFormat] [Свойство DisplayLabel] [Свойство DisplayName] [Свойство DisplayText] [Свойство DisplayValues] [Свойство DisplayWidth] [Свойство EditFormat] [Свойство EditMask] [Свойство EditMaskPtr] [Свойство FieldKind] [Свойство FieldName] [Свойство FieldNo] [Метод FocusControl] [Функция GetData] [Свойство Index] [Функция IsBlob] [Функция IsIndexField] [Свойство IsNull] [Функция IsValidChar] [Свойство KeyFields] [Функция LoadFromFile] [Функция LoadFromStream] [Свойство Lookup] [Свойство LookupCache] [Свойство LookupDataSet] [Функция LookupKeyFields] [Функция LookupList] [Функция LookupResultField] [Функция MaxValue] [Функция MinValue] [Свойство NewValue] [Функция Offset] [Свойство OldValue] [Событие OnChange] [Событие OnGetText] [Событие OnSetText] [Событие OnValidate] [Свойство Precision] [Свойство ReadOnly] [Метод RefreshLookupList] [Свойство Required] [Метод SaveToFile] [Метод SaveToStream] [Свойство ServerCalcField] [Метод SetCurrency] [Метод SetData] [Метод SetFieldType] [Свойство Size] [Свойство Text] [Свойство Transliterate] [Свойство Validate] [Свойство ValidChars] [Свойство Value] [Свойство Visible]

<<< Пред. Оглавление
Начало раздела
След. >>>




Дата последнего изменения:
Thursday, 21-Aug-2014 09:10:55 MSK


Постоянный адрес статьи:
http://az-design.ru/Support/SoftWare/Delphi/D3/SB37DataType.shtml