如何用字符串给SPCOM的枚举类型赋值？ (100分)

大

大愚

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-18

• #1

动态生成SPCOM，参数是字符串形式，从INI文件中读取
ccom:=tcomm.Create(Application);
ccom.CommName:=CheckListBox1.Items[ComCount];//com口列表；
ccom.BaudRate:=strtoint(ini.ReadString(CheckListBox1.Items[ComCount], 'Baud', '9600'));
ccom.ByteSize:=ini.ReadString(CheckListBox1.Items[ComCount], 'ByteSize', '_8');//ccom.ByteSize的类型是枚举类型的，该如何赋值？
用
if ini.ReadString(CheckListBox1.Items[ComCount], 'ByteSize', '_8')='_8' then
ccom.ByteSize:=_8;
很麻烦的，我不想用。

 

C

chenxz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-23

• #2

用强制转换啊。
ccom.ByteSize:=ENUM_TYPE(ini.ReadString(CheckListBox1.Items[ComCount], 'ByteSize', '_8'));

 

大

大愚

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-23

• #3

这样好像不行吧

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-23

• #4

我看了一下源码，它里面也没有多少
TByteSize = ( _5, _6, _7, _8 );
就四个，多少判断一下，改一下spcomm写一个方法函数就行了。
funtion bz(s:string):ByteSize;
begin
result:=_8;
if s='_5' then
result:=_5;
.....
end;

然后你不就可直接赋值了？？？
ccom.ByteSize:=ccom.bz(ini.ReadString(CheckListBox1.Items[ComCount], 'ByteSize', '_8'));//

 

大

大愚

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-23

• #5

方法是可以，但觉得有点繁琐，我现在这个问题这样解决还可以，但要是更复杂的情况呢？有没有更好的方法？

 

L

labelsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-23

• #6

ini里的字符串改用枚举类型的Ord

 

大

大愚

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-24

• #7

能给个具体用法吗？

 

大

大愚

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-29

• #8

没人回答，结帖