定义了一个枚举类型:
Type
M=(one,two,three);
然后在begin里如何将它付值给一个字符串或Edit1.Text等字符串类型的呀?
请各位帮忙,谢谢.
Type
M=(one,two,three);
然后在begin里如何将它付值给一个字符串或Edit1.Text等字符串类型的呀?
请各位帮忙,谢谢.
解决方案 »
- 请高手指点,这样错在那里,要怎么修改
- 如何让TreeView不排序,为何SortType选择stNone也不行。。
- 为什么用delphi带的qreport在xp下做的报表程序装到98的机子上无法打印?
- 在Delphi中如何得捕捉到usb口上摄像头的图像
- 键盘上的字符都怎么拼?????急,,,,,,
- 在DELPHI下开发软件时,帮助文档使用什么软件制作最好?
- sender的一个小问题
- 高手快快帮我吧!多表查询!这两天就要交差了!
- delphi 定义两个类, 第二个类的类成员类型是第一个类 怎么办?
- 请问如何在memo字段中查找字符窜??
- TRichEdit控件问题
- SQL2000的数据库,DELPHI参数为什么传不进去,各位快来HELP ME!在线等。。。。。。
function GetEnumName(TypeInfo: PTypeInfo; Value: Integer): string;
怎么用自己看帮助
TM=(one,two,three,four,five,six);
TS = set of TM;procedure TForm1.Button1Click(Sender: TObject);
var
T: TM;
S: TS;
begin
S := [one,two,three];
for T := Low(T) to High(T) do
if T in S then
Edit1.Text:=GetEnumName(TypeInfo(TM), Ord(T));
end;
type
TM=(one,two,three);procedure TForm1.Button1Click(Sender: TObject);
var
T: TM;
begin
T:=two;
Edit1.Text:=GetEnumName(TypeInfo(TM), Ord(T));//two
end;