长字串与宽字串

最新推荐文章于 2022-04-18 16:39:26 发布

weixin_30954607

最新推荐文章于 2022-04-18 16:39:26 发布

阅读量53

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/del/archive/2007/12/02/979941.html

procedure TForm1.Button1Click(Sender: TObject);
var
  s1: AnsiString;  //单字节储存
  s2: WideString;  //双字节储存
begin
  s1 := '万一OK';
  s2 := '万一OK';

  ShowMessage(s1[1]);  //显示乱码
  ShowMessage(s2[1]);  //万

  ShowMessage(IntToStr(Length(s1)));  //6
  ShowMessage(IntToStr(Length(s2)));  //4

  ShowMessage(IntToStr(SizeOf(s1)));  //4
  ShowMessage(IntToStr(SizeOf(s2)));  //4, 其 SizeOf 的大小相同，因为它们只是个指针地址
end;

转载于:https://www.cnblogs.com/del/archive/2007/12/02/979941.html