Есть тип данных
type
TDataTypeId = (DataTypeId_String, DataTypeId_SmallInt, DataTypeId_Integer, DataTypeId_Word,
DataTypeId_Boolean, DataTypeId_Float, DataTypeId_Currency,
DataTypeId_BCD, DataTypeId_FmtBCD, DataTypeId_Date,
DataTypeId_Time, DataTypeId_DateTime, DataTypeId_TimeStamp,
DataTypeId_Bytes, DataTypeId_VarBytes, DataTypeId_Blob,
DataTypeId_Memo, DataTypeId_Graphic, DataTypeId_fmtMemo,
DataTypeId_FixedChar, DataTypeId_WideChar, DataTypeId_LargeInt,
DataTypeId_Array, DataTypeId_FixedWideChar, DataTypeId_WideMemo);
Есть функция, которая принимая строку, содержащую в себе одно из значений этого типа, возвращает это значение
Function GetType(str: string): TDataTypeId;
var
typeidx: TDataTypeId;
typestr: string;
begin
for typeidx := Low(TDataTypeID) to High(TDataTypeID) do
begin
typestr:=GetEnumName(TypeInfo(TDataTypeId),Ord(typeidx));
typestr:=Copy(typestr, 12, length(typestr)-11);
//Memo.Lines.Add(typestr+'\n');
if (AnsiCompareStr(str, typestr)=0) then
Result:=typeidx
end;
end;
В результате сборки возникает
[dcc32 Warning] UnloadProcs.pas(59): W1035 Return value of function 'GetType' might be undefined
Как преобразовать функцию, чтобы предупреждение не возникало?