关于SPCOMM控件参数的设置.

以下是部分代码。但总是提示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;      
     
  请问怎么实现赋值？？ 问题点数：20、回复次数：1Top

1 楼DDGG（叮叮当当）回复于 2005-03-14 13:53:49 得分 20

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

相关问题

• spcomm
• parity
• tparity
• comm1
• flag
• then li
• if ls

• 帖主：freeshua
• DDGG

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载