Delphi 2009 新增的一个小函数: SysUtils.ByteLength

发布时间：2020-12-15 10:01:13 所属栏目：大数据来源：网络整理

导读：procedure TForm1.FormCreate(Sender: TObject);var str: string;begin str := '万一'; ShowMessageFmt('%d,%d',[Length(str),ByteLength(str)]); {2,4}end;

procedure TForm1.FormCreate(Sender: TObject);
var
  str: string;
begin
  str := '万一';
  ShowMessageFmt('%d,%d',[Length(str),ByteLength(str)]); {2,4}
end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!