关于文本覆盖,小弟我这个代码会什么执行不了

关于文本覆盖,我这个代码会什么执行不了?

大虾们帮看看..

将一个TXT文件中的含有#21251 之类的Unicode 转为 汉字,



procedure TForm1.Button5Click(Sender: TObject);
var
  J,i,P:Integer;
  s:String;
  List:TStringList;
  Str, ReplStr: string;
begin

  List := TStringList.Create;  
  List.LoadFromFile(trim(edit3.Text)); 
   
  for J := 0 to List.Count - 1 do
  begin
  s := List[J];
  i := pos(trim(str),s);
  //当#26597
  if (List[J]='#') and (IsNumeric(List[J+1])) and (IsNumeric(List[J+2])) and (IsNumeric(List[J+3])) and (IsNumeric(List[J+4])) and (IsNumeric(List[J+5])) then
  Str:=List[J]+List[J+1]+List[J+2]+List[J+3]+List[J+4]+List[J+5];
  //当#32 (#32表示空格)
  if (List[J]='#') and (IsNumeric(List[J+1])) and (IsNumeric(List[J+2])) and (List[J+2]='#') then
  Str:=List[J]+List[J+1]+List[J+2];

  //开始转换  
  ReplStr:=UnicodeToAnsi(IntToHex(StrToInt(Str),4));
   
  P := Length( trim(str) );
  Delete( s, i, P );
  insert( ReplStr, s, i );
  List[ J ]:=s;
  break;

  end;
  List.SaveToFile(trim(Edit4.Text));
  List.free;
end;

[解决办法]
写得够乱的

str开始就没有赋初值
循环中无条件使用break
List[J + 1]、List[J + 2]...
难道楼主当成了第J行的第几个字符-_-!!!

参考如下代码：

Delphi(Pascal) code

procedure TForm1.Button1Click(Sender: TObject);var  I: Integer;  S, T, W: string;  B: Boolean; // 是否处于#中  List: TStringList;begin  List := TStringList.Create;//  List.LoadFromFile(Trim(Edit3.Text));  List.Text := Memo1.Text;  S := List.Text;  T := '';  W := '';  B := False;  for I := 1 to Length(S) do  begin    if B then    begin      case S[I] of        '0'..'9': W := W + S[I];      else        begin          T := T + WideChar(StrToIntDef(W, Ord('#')));          B := S[I] = '#';          if not B then T := T + S[I];          W := '';        end;      end;    end else    begin      case S[I] of        '#': B := True;      else T := T + S[I];      end;    end;  end;  if B then    T := T + WideChar(StrToIntDef(W, Ord('#')));  Memo2.Text := T;  //List.SaveToFile(Trim(Edit4.Text));  List.Free;end;