delphi中GetEnumName和GetEnumValue
来源:互联网 发布:伞齿轮啮合条件知乎 编辑:程序博客网 时间:2024/05/16 04:25
利用TypInfo单元的GetEnumName和GetEnumValue可以遍历任意枚举类型,并获取其名称和值。下面是示例Demo。
procedure TForm1.btnTestClick(Sender: TObject);
var
p: PTypeData;
i: Integer;
s: String;
pt: PTypeInfo;
begin
ListBox1.Items.Clear;
pt := TypeInfo(TWindowState);
if pt.Kind <> tkEnumeration then begin
ShowMessage('不是枚举类型');
Exit;
end;
p := GetTypeData(TypeInfo(TWindowState));
//将获取的枚举类型信息,以枚举名=枚举值的形式加入到ListBox中
ListBox1.Items.beginUpdate;
try
for i := p.MinValue to p.MaxValue do begin
S := GetEnumName(pt,i);
ListBox1.Items.Values[S] := IntToStr(GetEnumValue(pt, S));
end;
finally
ListBox1.Items.EndUpdate;
end;
end;
- delphi中GetEnumName和GetEnumValue
- delphi中GetEnumName和GetEnumValue
- Delphi中的GetEnumName和GetEnumValue的使用方法
- GetEnumName与GetEnumValue的用法
- GetEnumName应用
- __delphirtti System::Typinfo::GetEnumName
- Delphi中initialization和finalization
- Delphi中initialization和finalization
- Delphi中initialization和finalization
- Delphi中initialization和finalization
- delphi中ActiveX 和 Web
- Delphi中initialization和finalization
- Delphi中ExtractFileName和ExtractFilePath
- Delphi中initialization和finalization
- Delphi中initialization和finalization
- Delphi XE8中Delphi和JAVA数据类型对应关系!
- 在Delphi中备份和还原数据库
- delphi中对象的create和free- -
- JQuery文件上传插件uploadify
- 超多Java\ASP.NET\PHP\oracle\android\iphone\VC++项目实战视频教程分享
- JS中页面跳转,传值包含中文时乱码解决方案
- 用jQuery解决跨域访问
- 三个代表”:卓越、良好与糟糕
- delphi中GetEnumName和GetEnumValue
- http://acm.hdu.edu.cn/showproblem.php?pid=1142
- ASP.NET MVC辅助方法小结
- 要看的电影
- TCP之可靠性
- mongoDB视频
- Iterator和ListIterator的不同使用方法
- Qt之QTcpServer/QTcpSocket简单收发信息(1)
- visual studio 来玩DLL