枚举方式 Case of 判断英文字符串

//对汉字无效

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
ComboBox1: TComboBox;

Button1: TButton;

procedure Button1Click(Sender: TObject);
private
{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation
uses TypInfo;
{$R *.dfm}

type
TMyEnum = (Red, black, Green);
procedure TForm1.Button1Click(Sender: TObject);
var
MyEnum: TMyEnum;
str: String;
begin
str := ComboBox1.Text;//输入Red Black Green

MyEnum := TMyEnum(GetEnumvalue(TypeInfo(TMyEnum), str));
case MyEnum of

Red :Self.Caption := '红色';

black :Self.Caption := '黑色';

Green :Self.Caption := '蓝色';
end;
end;
end.

粘贴自： <http://www.cnpack.org/ >

来自为知笔记(Wiz)