请教一个问题！

Question

type
TXH0=(VV22,VLV,VLV22,NHVV,NHVV22);
  TXH= set OF TXH0;var
  s:stringbegin
  s:='VV22'
  if (s in txh) then
   beep;
end;
怎么才能实现这个功能，上面的代码运行不了。

Answer 1

http://www.xuedelphi.cn/wenzhang/pascal/2007/12/200712302017.htm

Answer 2

var
  p: PTypeData;
  i: Integer;
  s: String;
  pt: PTypeInfo;
  list: TStrings;
begin
  list:= TStringList.Create;
  pt := TypeInfo(TXH0);
  if pt.Kind <> tkEnumeration then begin
    ShowMessage('不是枚举类型');
    Exit;
  end;
  p := GetTypeData(TypeInfo(TXH0));
  try
    for i := p.MinValue to p.MaxValue do begin
      S := GetEnumName(pt,i);
      list.Add(s);
    end;
  finally
    if list.IndexOf('VV22')>=0 then
      beep;
    list.Free;
  end;
end;