用application.MessageBox中遇到的问题(急)

Question

if Query2.RecordCount<>0 then
     begin
      if application.MessageBox('a','注意!',Mb_YesNoCancel + Mb_IconQuestion)=Id_Yes then
        begin
        strpcopy(CMPP_SUBMIT_tag.FeeType,'01');
        strpcopy(CMPP_SUBMIT_tag.FeeCode,'000');
        end
       else
       exit;
     end
   else
    begin
    if application.MessageBox('b','注意!',Mb_YesNoCancel + Mb_IconQuestion)=Id_Yes then
   　 begin
       strpcopy(CMPP_SUBMIT_tag.FeeType,'02');
       strpcopy(CMPP_SUBMIT_tag.FeeCode,'100');
     end
       else
         exit;
     end;
上面这段代码在编译时出现以下错误:
[Error] main.pas(288): Illegal character in input file: '　' ($A1A1)
是什么原因?

Answer 1

注意:
出错的地方在:
if application.MessageBox('b','注意!',Mb_YesNoCancel + Mb_IconQuestion)=Id_Yes then的下面一行.
即begin

Answer 2

Who Can Help Me.......
Thanks!

Answer 3

出错的那一行包含中文字符，你直接Copy的吧，最好重新写那一行

Answer 4

可能是
CMPP_SUBMIT_tag.FeeType, ...
的類型不對, 你看是不是 pchar 類型的!

Answer 5

为什么上面的if application.MessageBox('a','注意!',Mb_YesNoCancel + Mb_IconQuestion)=Id_Yes then
        begin
        strpcopy(CMPP_SUBMIT_tag.FeeType,'01');
        strpcopy(CMPP_SUBMIT_tag.FeeCode,'000');
又没有错,编译正确呢?

Answer 6

我以前碰到过你遇到的错误
Illegal character in input file: '　' ($A1A1)
就是在本句的前面或后面有不可见的空格，可能不是英文状态输入的，一般是直接Copy代码造成的，你把出问题的一行和前后行都整行删除掉，重新写