字符串、字符数组、字符指针

//字符串与字符数组 
var
  arr: array[0..5] of Char;
  str: string;
begin
  {可以把字符串常量直接赋给字符数组; 但超界不行}
  arr := 'Delphi';
  ShowMessage(arr); {Delphi}
  {可以把字符数组直接赋给字符串变量}
  str := arr;
  ShowMessage(str); {Delphi}
  {但不能把一个字符串变量赋给字符数组}
  //arr := str;     {错误} 
  {其实字符串内部也是包含了一个字符数组, 所以能索引访问, 不过它的索引起始于 1}
  ShowMessage(str[1]); {D}
  ShowMessage(arr[0]); {D}
end;
--------------------------------------------------------------------------------//字符指针与字符数组 
var
  arr: array[0..6] of Char;
  p: PChar;
begin
  arr := 'Delphi';
  {如果直接把字符数组给字符指针, 结果不保险, 因为字符指针要找空字符(#0)结束}
  {把数组的最后一个元素给 #0 就可以了}
  arr[Length(arr)-1] := #0;
  p := arr;
  ShowMessage(p); {Delphi}
  {假如把 #0 给到中间会怎样?}
  arr[3] := #0;
  p := arr;
  ShowMessage(p); {Del; 给截断了}
end;