codetyphon7.0 fastrepot中文换行首字乱码问题解决方案
找到了,很简单
就是
Unit LR_Class;
里面的WrapLine 过程
const s: String 改成 const s: wideString
ch: char; 改成 ch: widechar;
如下,成功解决。
procedure WrapLine(const s: wideString);
var
i, cur, beg, last, len: Integer;
WasBreak, CRLF, IsCR: Boolean;
ch: widechar;
begin