随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

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

posted on 2009-02-12 15:04  万一  阅读(...)  评论(...编辑  收藏