急急急!!如何在运行期给SPCOMM的ByteSize,Parity,StopBits三个属性赋值。(20分)

  • 主题发起人 主题发起人 ccweifen
  • 开始时间 开始时间
C

ccweifen

Unregistered / Unconfirmed
GUEST, unregistred user!
ByteSize,Parity,StopBits的类型分别为TByteSize,Tparity,TStopbits,
我如何从EDIT中读取数据赋给它们。如何转换类型。
谢谢大虾们!!
 
怎么没人回答,这三个属性难道不能在运行期改变吗??
 
再加30分 = 50分 ,如何?回答后另给30分。
 

TParity = ( None, Odd, Even, Mark, Space );
TStopBits = ( _1, _1_5, _2 );
TByteSize = ( _5, _6, _7, _8 );

比如,你有三个 Combobox, 分别代表Parity, StopBits, ByteSize
要覆值可以用下面的语句:

Comm1.Parity := TParity(Combobox1.IndexNo);
Comm1.StopBits := TStopBits(Combobox2.IndexNo);
Comm1.ByteSize := TByteSize(Combobox3.IndexNo);


 

Sorry, 是 ItemIndex
 
还是不行,我是如下操作的,在设计期先给Combobox1的items中添加选项(_5,
_6,_7,_8).
procedure Tfrmcom.BitBtn1Click(Sender: TObject);
begin
Mainform.Comm1.ByteSize := TByteSize(Combobox1.itemindex);
end;
Spcomm放在Mainform中,
编译时出现错误:
[Error] procotalU.pas(56): Undeclared identifier: 'TByteSize'

>> TParity = ( None, Odd, Even, Mark, Space );
>> TStopBits = ( _1, _1_5, _2 );
>> TByteSize = ( _5, _6, _7, _8 );
这三行在哪儿定义。
如果定义后编译时出现错误:
[Error] procotalU.pas(62): Incompatible types: 'SPComm.TByteSize' and 'procotalU.TByteSize'

 


>> TParity = ( None, Odd, Even, Mark, Space );
>> TStopBits = ( _1, _1_5, _2 );
>> TByteSize = ( _5, _6, _7, _8 );

上面三行不用定义,它是在SpComm.pas中定义的,只要你Uses了Spcomm
就不会出现上面的错误.
 
接受答案了.
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部