如何更改我的代码以获得正确的枚举名称值？

Question

我正在尝试使用 RTTI 获取枚举名称值。

我的目标是使用字符串值从 Enum2(iterator) 中选定的枚举名称值中获取 Enum1(Tsex) 中相应的枚举名称值。

这是我已经实现的代码。我正在使用 Delphi 7。

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs,typinfo;

type

 Tsex = (homme,femme);
 iterator = (H,F);

TForm1 = class(TForm)
  procedure FormShow(Sender: TObject);
private
 { Déclarations privées }
 public
 { Déclarations publiques }
end;

var
  Form1: TForm1;

implementation

 {$R *.dfm}


 procedure TForm1.FormShow(Sender: TObject);
  var
    i : integer;
    OT: Tsex;
    FT: iterator;
 begin
   i:=0;
   OT := Low(Tsex);
   for FT := Low(iterator) to High(iterator) do
     if GetEnumName(TypeInfo(iterator), Ord(FT)) = 'F' then
     begin
       showmessage(GetEnumName(TypeInfo(Tsex), Ord(OT)));
     end;
     i:=i+1;
     OT:=Succ(OT);
   end;

当我使用H 作为字符串时，我得到homme，但是当我使用F 时，我也得到homme。但它必须是femme。

Answer 1

问题：

您的代码中的问题是您在for 之后缺少begin，这会导致在迭代完成后发生i 的递增和OT 的分配。

你需要改变的是：

var
  i : integer;
  OT: Tsex;
  FT: iterator;
begin
  i:=0;
  OT := Low(Tsex);
  for FT := Low(iterator) to High(iterator) do
  begin // <- Add begin here
    if GetEnumName(TypeInfo(iterator), Ord(FT)) = 'F' then
    begin
      showmessage(GetEnumName(TypeInfo(Tsex), Ord(OT)));
    end;
    i:=i+1;
    OT:=Succ(OT);
  end;
 end; // <- Add end; here

替代解决方案：

正如 David 所指出的，最好使用数组将另一组值映射到您的枚举。像这样：

type
 TSex = (homme, femme);

const
 SexDBValues: array [TSex] of string =
 ('H', 'F');

type
  TForm1 = class(TForm)
  procedure FormShow(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function GetMyEnumValue(const aDBValue: string): TSex;
var
  value: TSex;
begin
  for value := Low(TSex) to High(TSex) do
  begin
    if SameText(SexDBValues[value], aDBValue) then
    begin
      Result := value;
      Exit;
    end;
  end;
end;

procedure TForm1.FormShow(Sender: TObject);
var
  value: TSex;
begin
  value := GetMyEnumValue('H');
  ShowMessage(GetEnumName(TypeInfo(TSex), Ord(value)));
end;

---

当你的枚举类型只包含两个值，并且将来不太可能有额外的值时，你可以使用旧的 if-else 运算符：

function GetMyEnumValue(const aDBValue: string): TSex;
begin
  if SameText(aDBValue, 'F') then
  begin
    Result := femme;
  end else
  begin
    Result := homme;
  end;
end;

简而言之，避免过度设计问题。

注意：我们使用string 来存储字符值并使用SameText 来比较它，因为它不区分大小写地比较文本。另外，它允许您比较多个字符的文本，如果将来您改变了对值在 DB 中的存储方式的想法。

---

建议：

我也建议您咨询Delphi Coding Style Guide。

这似乎与问题无关，但遵循缩进的良好做法有助于避免此类问题。

关于命名类型和变量的指南也很重要。在其他情况下，它们同样会拯救你。