Содержание
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;