delphi如何访问枚举变量中的值？

答案:3 悬赏:0 手机版

解决时间 2021-07-19 17:04

提问者网友：我们很暧昧
2021-07-18 21:39

我定义了一个枚举变量，然后给它赋值，如何引用它？如何显示我要的值？

例如：type color=(red,green,blue);

color:=green;

我要用代码引用color变量，让它在屏幕上显示“这是green”，怎么弄呢？

最佳答案

五星知识达人网友：十年萤火照君眠
2021-07-18 22:12

定义:

theColor: Color;

theColor := green;

if (theColor = green) then

lble1.caption := '这是green';

全部回答

1楼网友：渡鹤影
2021-07-18 23:24

type TMyEnum = (red,green,blue); {定义枚举}

procedure TForm1.Button1Click(Sender: TObject); const ColorArr: array[TMyEnum] of string=('红','绿','蓝'); {定义数组} var myEnum: TMyEnum; {定义枚举变量} begin for myEnum := Low(ColorArr) to High(ColorArr) do begin ShowMessage(ColorArr[myEnum]); end;

2楼网友：拾荒鲤
2021-07-18 22:48

今天连续看到枚举的问题。写了段例子给你：

type

TMind = set of (mGood, mVeryGood);

function Test(Mind: TMind): string; begin if(mVeryGood in Mind)then Result := '非常好'; Result := '好'; end;

希望对你有帮助。:)

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息