uses db;
function FieldTypeToStr(aFieldType: TFieldType): String;
begin
Exit(Fieldtypenames[aFieldType]);
end;
function StrToFieldType(aString: String): TFieldType;
var
ft: TFieldType;
begin
aString := LowerCase(aString);
Delete(aString, 1, 2);
for ft := Low(TFieldType) to High(TFieldType) do
if aString = LowerCase(Fieldtypenames[ft]) then
Exit(ft);
Result := ftUnknown;
end;