Содержание
MetaField.Type : Integer
Тип поля
Свойство Type содержит тип поля. Константы vtInteger, vtFloat, vtString, vtBoolean, vtCurrency, vtDateTime, vtBlob, vtImage
Procedure OnCreate;
Var
T : MetaModule;
F : MetaField;
I : Integer;
Begin
T := Meta.Module(Meta.v.UsersTableName);
For I := 0 To T.FieldsCount - 1 Do
Begin
F := T.Field(I);
Warning(ToStr(I) + '. ' + F.Description + ' ' + F.Name + ' ' + DescrType(F.Type));
End;
End;
Function DescrType(T : Integer) : String;
Begin
Case T Of
vtInteger: Result := 'Integer';
vtFloat: Result := 'Float';
vtString: Result := 'String';
vtBoolean: Result := 'Boolean';
vtCurrency: Result := 'Currency';
vtDateTime: Result := 'DateTime';
vtBlob: Result := 'Blob';
vtImage: Result := 'Image';
Else Result := '?'
End;
End;
справка