Question

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

我的目标是使用字符串值从Enum2（迭代器）中选定的枚举名称值中获取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

问题：

您的代码中的问题是您在begin之后缺少for，这会导致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来比较它，因为它比较了不区分大小写的文本。此外，它允许您比较多个字符的文本，如果将来您改变了对值如何存储在数据库中的想法。

建议：

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

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

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

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

1 个答案:

问题：

替代解决方案：

建议：