解决“illegal character in input file "$A1A1"”问题

解决“illegal character in input file "$A1A1"”问题，这个问题主要是由网上复制的代码中包含非法字符引起的。

其他解决办法：
($A1A1)是汉字的空格（即双字节空格161），改成英文空格(75)
有 UNICODE 字符啊
用汉字输入法的全角方式输入了一个空格～～   只要删除那个空格就可以了～～  

有可能系统自动在其中加入了非法字符，在每一行前按BACKSPACE键回至上一行，在按ENTER重新分行，将有可能插入的非法字符删除就可以了。

把空格都删掉再加空格,再把空行删掉,还有问题就把某些字符改掉.  

下面是一转换小工具源码：

{///////////////////////////////////////////////////////////////////////////////
Project   转换小工具 1.0
Purpose   解决“illegal character in input file "$A1A1"”问题，
          这个问题主要是由网上复制的代码中包含非法字符引起的。

Author    boychenxr

Emails    boychenxr@sina.com
Released 2003-04-04

///////////////////////////////////////////////////////////////////////////////}

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls,printers, ExtCtrls;

type
TForm1 = class(TForm)
    Splitter1: TSplitter;
    Panel6: TPanel;
    Button1: TButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Panel3: TPanel;
    Memo2: TMemo;
    Panel1: TPanel;
    Memo1: TMemo;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
temp1,temp2:string;
begin
temp1:=Memo1.text;
if temp1='' then exit;
for i:=1 to length(temp1) do
    if ord(temp1[i])=161 then
      temp2:=temp2+' '
    else
      temp2:=temp2+temp1[i];
memo2.text:=temp2;
self.PageControl1.ActivePageIndex:=1;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
self.PageControl1.ActivePageIndex:=0;
Memo1.Clear;
Memo2.Clear;
end;

end.