DELPHI XE2中FORMAT函数的问题

[panxiaosen]

下面代码以前在DELPHI 7里都正常的，就是让字符左对齐，宽度10。昨天装了DELPHI XE2，发现只要szAccounts中只要出现中文就乱了，他把中文当初一个字符了，请教下要怎么修改呢？

var
  szAccounts: array [0 .. 15] of ansiCHAR; // 用户账号 
  dwUserID:dword;
 
result := Format('%-10s[%6d]', [ansistring(szAccounts), dwUserID])

[panxiaosen]

看来没人回答。。。自己解决了。。。DELPHI的FORMAT看来只能支持宽字符。。。无语。。。。。。。。。

代码已经经过验证是可以的，和VC一样方便了 :)

function wsprintf(Output: PAnsiChar; Format: PAnsiChar): Integer; cdecl; varargs; external user32 name 'wsprintfA';

wsprintf(s, '%-10s[%6d]',ansistring(szAccounts), dwUserID);