procedure TForm1.FormCreate(Sender: TObject); var str: string; begin str := '万一'; ShowMessageFmt('%d, %d', [Length(str), ByteLength(str)]); {2,4} end;
Delphi 2009 新增的一个小函数: SysUtils.ByteLength
最新推荐文章于 2020-10-12 08:15:03 发布
procedure TForm1.FormCreate(Sender: TObject); var str: string; begin str := '万一'; ShowMessageFmt('%d, %d', [Length(str), ByteLength(str)]); {2,4} end;