关于SPCOMM控件参数的设置.

Question

以下是部分代码。但总是提示Incompatible  types:  'SPComm.TParity'  and  'Main.TParity'  
 
   li_flag  :=  0;  
   if  ls_parity  =  'None'  then  li_flag  :=  1;  
   if  ls_parity  =  'Odd'  then  li_flag  :=  2;  
   if  ls_parity  =  'Even'  then  li_flag  :=  3;  
   if  ls_parity  =  'Mark'  then  li_flag  :=  4;  
   if  ls_parity  =  'Space'  then  li_flag  :=  5;  
 
   {取得奇偶校验}  
   case  li_flag  of  
       1:comm1.Parity  :=  None;  
       2:comm1.Parity  :=  Odd;  
       3:comm1.Parity  :=  Even;  
       4:comm1.Parity  :=  Mark;  
       5:comm1.Parity  :=  Space;  
   else  begin  
       Application.MessageBox('请检查[Config.ini],奇偶校验设置有误!','提示',64);  
       Application.Terminate;  
   end;  
   end;  
 
请问怎么实现赋值？？

Answer 1

你的Main单元中也定义了TParity类型，因为和SPComm的TParity是同名，所以当你给Comm1.Parity赋值的时候，应该把当前单元文件的uses引用顺序调整一下，把SPComm写在前面。