这段程序哪里错了?!编译器是不是出错了?百思不得其解!!

Question

function TransChar(AChar: Char): Integer;
begin
    if AChar in ['0'..'9'] then
　　  Result := Ord(AChar) - Ord('0')
　　else
　　  Result := 10 + Ord(AChar) - Ord('A');
end;编译得到的结果
[Error] Loginfm.pas(37): Illegal character in input file: '　' ($A1A1)

Answer 1

function TransChar(AChar: Char): Integer;
begin
    if AChar in ['0'..'9'] then
　　  Result := Ord(AChar) - Ord('0')
　　else if AChar in ['A'..'F'] 
　　  Result := 10 + Ord(AChar) - Ord('A')
    else
      Result := 0;
end;

Answer 2

cll007(gazo)说得没错，因为你本身这段程序是考过来的，其中有些字符是空的，你可以直接选中一部分空位置，或者删除空格时就会发现，具体更详细的那些是什么类型的字符