procedure TForm1.Button1Click(Sender: TObject);
begin
i:=ord(Red);
label1.Caption:='枚举值: '+GetEnumName(TypeInfo(TMyColor),i);
label1.Caption:='序 号: '+IntToStr(GetEnumValue(TypeInfo(TMyColor),GetEnumName(TypeInfo(TMyColor),i)));
end;
那为什么运行不了了?
begin
i:=ord(Red);
label1.Caption:='枚举值: '+GetEnumName(TypeInfo(TMyColor),i);
label1.Caption:='序 号: '+IntToStr(GetEnumValue(TypeInfo(TMyColor),GetEnumName(TypeInfo(TMyColor),i)));
end;
那为什么运行不了了?
解决方案 »
- delphi 7 如何给jpg图片 加上个水印
- delphi调用webservice(C#)时如何获取soapheader
- 关于DELPHI获取窗口句柄后,再获取窗口按钮
- 为什么 mysql5.0 用ado 进行操作时 不支中文 ????????? 急!!!!!!!
- 如何在程序中修改ACCESS数据库的密码?
- DBChart/Chart柱图顶端显示的不是数值而是柱图的所对应的标签值,如何解决?
- 利用ms tts语音调用sapi.dll
- 帮忙理解一句话
- ============================高智商朋友请帮忙,一首难题。================================
- ADO连接ACCESS数据库 怎么发布(做安装盘)
- 在delphi中如何为应用程序输出返回值!
- form1.mainmenu1中包括:学生资料(n1)、毕业生资料(n2),两个菜单。怎么屏蔽掉两个菜单,使他们不可用
[Error] Unit1.pas(35): Undeclared identifier: 'GetEnumName'
[Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit1.pas'