var
  S: ShortString;   { 255个字符长度,256个字节}
  S1: String[255];  { S1和S的字符类型一样，通过使用String声明字符串并且在String后面用中括号规定字符个数的形式定义字符串}
  Len: Integer;
begin
  S := 'Hello';
  Len := Ord(S[0]); { Len现在包含S的长度为5，Ord函数可以把一个字符类型转换为整数类型}
  Len := SizeOf(S); { Len现在包含的是ShortString类型的大小，为256字节，并不是字符串的长度} 
end;

var
  S: string[8];{这种定义方式，是定义S是一个字符串，且S是最多含有8个字符的字符串}
  i: Integer;
begin
  S := 'a_pretty_darn_long_string';
  { 因为S只有8个字符大小，
  因此s的实际存储的内容为“a_pretty”}
  i := 10;
  S[i] := 's';
  { 因为S只有8个字符大小，
  试图改写第10个元素，将会使内存混乱}
end;

var
  S: string;

var
    s: string;
begin
    s:= '<?xml version="1.0" encoding="UTF-8"?><Msg><AppHdr><CharSet>UTF-8</CharSet><Fr>000100</Fr><To>SDC</To><BizMsgIdr>0000000002</BizMsgIdr><MsgDefIdr>V1.0</MsgDefIdr><BizSvc>067</BizSvc><CreDt>20130227100434</CreDt><Sgntr>fb3LY5VmhonZwhP+ntxI9A==</Sgntr></AppHdr><Document><Data><FndNm>name</FndNm><TtlFndVol>12681656.00</TtlFndVol><FndCd>159999</FndCd><FndSts>0</FndSts><NAV>1.0251</NAV><NtValDt>20130301</NtValDt><NtValTp>0</NtValTp></Data></Document></Msg>';
    
end.

var
    s: string;
begin
    s:= '<?xml version="1.0" encoding="UTF-8"?><Msg><AppHdr><CharSet>UTF-8</CharSet><Fr>000100</Fr><To>SDC</To>'
    + '<BizMsgIdr>0000000002</BizMsgIdr><MsgDefIdr>V1.0</MsgDefIdr><BizSvc>067</BizSvc><CreDt>20130227100434</CreDt>'
    + '<Sgntr>fb3LY5VmhonZwhP+ntxI9A==</Sgntr></AppHdr><Document><Data><FndNm>FundName</FndNm><TtlFndVol>12681656.00</TtlFndVol>'
    + '<FndCd>159999</FndCd><FndSts>0</FndSts><NAV>1.0251</NAV><NtValDt>20130301</NtValDt><NtValTp>0</NtValTp></Data>'
    + '</Document></Msg>';

end.

var
  S: string;
  { 在Delphi 7中默认string等同于AnsiString}
  WS: WideString;
begin
  S := '世界你好';
  WS := S;
  ShowMessage(S[1]);  { 此时无任何显示，因为S[1]取出的是‘世’的一半}
  ShowMessage(WS[1]); { 显示‘世’}
end;

function MessageBox(hWnd: HWND; lpText, lpCaption: PChar; uType: UINT): Integer; stdcall;

var
  Text: string;
  Caption: string;
begin
  Text := 'This is a test.';
  Caption := 'Test Message';
  MessageBox(0, PChar(Text), PChar(Caption), 0);
  { 这里PChar用来把string类型转换为Null结尾的字符串}
end;

var
  Text: PChar;    { 声明为PChar类型}
  Str: string;    { 声明为String类型}
begin
  Text := 'This is a test.';             { 都被赋予了相同的字符串}
  Str := 'This is a test.';
  ShowMessage(IntToStr(SizeOf(Text)));   { 4字节，实质是指针}
  ShowMessage(IntToStr(SizeOf(Str)));    { 也是4字节，也是指针}
end;

var
  Text: PChar;
begin
  Text := 'This is a test.';
  MessageBox(0, Text, 'Test Message', 0);
  { 这里Text直接声明为了PChar类型，字符串常量可以直接用}
end;

const
  TempString: array[0..15] of Char = 'This is a test.'#0;
var
  Text: PChar;
begin
  Text := @TempString[0];
  {Text指向Null结尾的TempString字符数组的第0个元素的地址，
  也就是整个字符数组的首地址}
  MessageBox(0, Text, 'Test Message', 0);
end;

var
  Text1: array[0..14] of Char;  { 大小为15个字符}
  Text2: array[0..20] of Char;  { 大小为21个字符}
begin
  Text1 := 'This is a test.';   {Text1和Text2的字符长度都为15个字符}
  Text2 := 'This is a test.';
  MessageBox(0, Text1, 'Test Message 1', 0);
  {因为Text1的字符长度超过了其声明的大小，因为会内存访问混乱，显示换乱}
 
  MessageBox(0, Text2, 'Test Message 2', 0);
  {Text2的字符长度比起声明的大小要小，因为正常访问，显示正确}
end;