get Enum List 枚举 列表 两种方法 GetPropInfo TypeInfo GetTypeData

<span style="font-family:Arial, Helvetica, sans-serif;"></span><pre class="delphi" name="code"><pre class="delphi" name="code"><pre class="delphi" name="code">//方法一
procedure TForm1.btnTWindowStateClick(Sender: TObject);
var
  p: PTypeData;
  i: Integer;
  s: String;
  pti: PTypeInfo;
begin
  mmo1.Clear;
  pti := TypeInfo(TWindowState);
  if pti.Kind <> tkEnumeration then begin
    ShowMessage('不是枚举类型');
    Exit;
  end;

  p := GetTypeData(TypeInfo(TWindowState));

  //将获取的枚举类型信息，以枚举名=枚举值的形式加入到ListBox中
  try
    for i := p.MinValue to p.MaxValue do begin
      S := GetEnumName(pti,i);
      mmo1.Lines.Add(s);
    end;
  finally
  end;
end;
//方法二
procedure TForm1.btnWindowStateStringClick(Sender: TObject);
var
  p: PTypeData;
  i: Integer;
  s: String;
  pti: PTypeInfo;
  Ppi: PPropInfo;
begin
  mmo