又是编码问题，被delphi折磨了两天

前两天又在改象棋桥（XQStudio）的delphi代码，由于代码是用老旧的delphi 5.0编写的，不支持unicode，也缺少很多别的功能，所以就想用delphi 2009（支持Unicode，泛型）来编译。界面的中文显示解决了，但是棋谱的注解文字保存后却变成了乱码，查阅了很多资料，调试了大约一天半多，本来已经差不多要打退堂鼓了，但总有些不甘心，终于又调试下去，好在总算搞定。

原来的代码是：

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

function dTXqfStream.Write(const Buffer; Count: Longint): Longint; var   ByteBuf: PByte;   p      : PByte;   i, iPos: Integer;   KeyByte: Byte; begin   Result := 0;   if Count < 1 then Exit;   if (Count > 1024) then   begin     GetMem(ByteBuf, Count);   end   else   begin     ByteBuf := @FBuf1024;   end;   Move(Buffer, ByteBuf^, Count);   iPos := Self.Position;   p    := ByteBuf;   for i:=0 to Count-1 do   begin     KeyByte := F32Keys[(iPos mod 32) + 1];     P^ := P^ + KeyByte;     Inc(p);     Inc(iPos);   end;   Result := inherited Write(ByteBuf^, Count);   if (Count > 1024) then FreeMem(ByteBuf); end;

调用的代码是：

iBytes := Length(pt.Remark.Text);
fs.Write(PChar(pt.Remark.Text)^, iBytes);

开始改成

fs.Write(PChar(UTF8Encode(pt.Remark.Text))^, iBytes);

然后读出时使用UTF8Decode解码，中文基本显示正常了，但也不完美，末尾的几个字符仍然不正常。而且这样一来，就无法兼容老版本文件。

调试了半天，发现似乎指针位移有问题，但是把PChar改成PByte，又修改了Move函数的调用参数，仍然不行。最后只好用笨办法解决：

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

function dTXqfStream.WriteRemark(fbt: TBytes; Count: Longint): Longint; var   i, iPos: Integer;   KeyByte: Byte; begin   Result := 0;   iPos := Self.Position;   for i:=0 to Count - 1 do   begin     KeyByte := F32Keys[(iPos mod 32) + 1];     fbt[i] := fbt[i] + KeyByte;     Inc(iPos);   end;   for i := 0 to Count - 1 do       inherited Write(fbt[i], 1);   Result := 0; end;

也就是不用指针，强制一个一个字节写，就可以了。

delphi大概现在用的人少，资料不容易查。api文档实在实在垃圾！！几乎找不到什么有用的东西。ide还算不错，当然没有visual studio好用。调试时有时会出现某些断点无法达到，需要在文件开头加上编译选项{$O-}才行。方法先要声明，然后再写实现。一大堆begin, end，写法极其罗嗦。反正各种不好用。只是觉得如果自己用C#来重写这个程序，可能更麻烦，所以还是继续修改。希望解决了中文编码的问题，别的应该问题不大了。