怎样将UTF8字符串赋值给 ansichar字符数组

mlkj · 发表于 2012-9-26 12:01:29

例：
var
S:string;
A:array [0..29] of Ansichar;

begin
S:='LAZ中文社区';
strpcopy(A,S) ;

Memo1.text:= systoUTF8(A) ;

// 输出是错的...怎样赋值？？

end;

mlkj · 发表于 2012-9-26 13:10:23

还是传一个完整的代码

bugxiong · 发表于 2012-9-26 13:17:12

字符编码转换在lazarus下经常会遇到，找到适合的函数就可以。

samsam598 · 发表于 2012-9-27 12:14:36

Memo1.text:= A;

		自动登录	找回密码
密码			立即注册（注册审核可向QQ群索取）