简单问题,大家都来!

cysh 2003-08-15 11:01:30
我是一个DELPHI的初学者,请问怎样计算一个字符串(可以有中文和英文,包全角和角符号)的字符个数和字节个数.请各位大侠帮助!!!!
...全文
12 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
zswangII 2003-08-15
  • 打赏
  • 举报
回复
procedure TForm1.Button1Click(Sender: TObject);
var
S: string;
WideCount: Integer;
AnsiCount: Integer;
begin
// S := 'hello 你好!';
S := Edit1.Text;
AnsiCount := Length(S);
WideCount := Length(WideString(S));

ShowMessage(Format('中文字符:%d个 英文字符:%d个',
[AnsiCount - WideCount, 2 * WideCount - AnsiCount]));
end;

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧