将枚举类型变量设置为nil

Question

将枚举类型变量设置为nil

5

也许（很可能）这是一个愚蠢的问题，但我没有找到答案...

请检查这个假想的代码：

type
  TCustomType = (Type1, Type2, Type3);

function CustomTypeToStr(CTp: TCustomType): string;
begin
  Result := '';
  case CTp of
    Type1: Result := 'Type1';
    Type2: Result := 'Type2';
    Type3: Result := 'Type3';
  end;
end;

function StrToCustomType(Str: string): TCustomType;
begin
  Result := nil;           <--- ERROR (Incompatible types: 'TCustomType' and 'Pointer')
  if (Str = 'Type1') then
    Result := Type1 else
  if (Str = 'Type2') then
    Result := Type2 else
  if (Str = 'Type3') then
    Result := Type3;
end;

请问，我该如何将nil / null / empty设置为这个自定义类型的变量，以便我可以检查函数结果并避免问题？

- Guybrush

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- David Heffernan · Accepted Answer

枚举类型不可以为 nil，它必须取其中一个已定义的枚举值。

你有几个选项。你可以添加另一个枚举类型：

type
  TCustomType = (NoValue, Type1, Type2, Type3);

您可以使用可空类型。例如，Spring有Nullable<T>。

如果找不到任何值，您可以引发异常。

function StrToCustomType(Str: string): TCustomType;
begin
  if (Str = 'Type1') then
    Result := Type1 
  else if (Str = 'Type2') then
    Result := Type2 
  else if (Str = 'Type3') then
    Result := Type3
  else
    raise EMyException.Create(...);
end;

或者您可以使用TryXXX模式。

function TryStrToCustomType(Str: string; out Value: TCustomType): Boolean;
begin
  Result := True;
  if (Str = 'Type1') then
    Value := Type1 
  else if (Str = 'Type2') then
    Value := Type2 
  else if (Str = 'Type3') then
    Value := Type3
  else
    Result := False;
end;

function StrToCustomType(Str: string): TCustomType;
begin
  if not TryStrToCustomType(Str, Result) then
    raise EMyException.Create(...);
end;