delphi 2010 异或中文乱码

[keeley20]

代码如下：

function XORString(const strText: String): String;
var
  len,k:word;
  b:Byte;
begin
  Result := '';
  len := Length(strText);
  for k := 1 to len do
  begin
    b := Ord(strText[k]);
    if k mod 2 =0 then
      b := b xor k
    else b := b xor (len-k);
    Result := Result + CHR(b);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit2.Text:=XORString(Edit1.Text);
end;

在delphi 7 和2007 上面编译后，异或中文都是OK的
delphi 2010却乱码，把string改成AnsiString还是乱码， 请问各位需要怎么修改。

[bdmh]

2010中默认unicode编码，string改为AnsiString，Edit1.Text改为AnsiString(Edit1.Text)

[僵哥]

function XORString(const strText: String): String;
var
  len,k:word;
  b:word;
begin
  Result := '';
  len := Length(strText);
  for k := 1 to len do
  begin
    b := Ord(strText[k]);
    if k mod 2 =0 then
      b := b xor k
    else b := b xor (len-k);
    Result := Result + CHR(b);
  end;
end;

[僵哥]

或者

function XORString(const strText: AnsiString): AnsiString;
var
  len,k:word;
  b:word;
begin
  Result := '';
  len := Length(strText);
  for k := 1 to len do
  begin
    b := Ord(strText[k]);
    if k mod 2 =0 then
      b := b xor k
    else b := b xor (len-k);
    Result := Result + AnsiChar(b);
  end;
end;

[keeley20]

谢谢大牛回复，

function XORString(const strText: AnsiString): AnsiString;
var
  len,k:word;
  b:Byte;
begin
  Result := '';
  len := Length(strText);
  for k := 1 to len do
  begin
    b := Ord(strText[k]);
    if k mod 2 =0 then
      b := b xor k
    else b := b xor (len-k);
    Result := Result + CHR(b);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit2.Text:=XORString(AnsiString(Edit1.Text));
end;

请问是这样修改？
貌似还是一样乱码

[keeley20]

谢谢 僵哥 大牛，也谢谢二楼的大牛，按僵哥的办法解决了。

[xjq2003]

无需多言了