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