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

为什么80%的码农都做不了架构师？>>>   

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

 
 
 
 
 

 

 

  

转载于:https://my.oschina.net/hermer/blog/320731