长字串与宽字串

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;