program MyArray; //数组
{$APPTYPE CONSOLE}
uses
  SysUtils;

{用指针读取数组某个元素}
procedure MyFunc1();
var
  i: Integer;
  p: PByte;
  MyTByteArr: TBytes;//TByte本身是个指针
  MyArrChar : array [1..50] of char;//MyArrChar本身不是指针
begin
{输出MyArrChar数组}
  StrCopy(@MyArrChar, '田攀学Delphi!'); //数组名@取地址作为数组地址
  Writeln(PChar(@MyArrChar));{田攀学Delphi!}
{输出}
  SetLength(MyTByteArr, 5); //数组名作为数组地址
  for i := 0 to 4 do MyTByteArr[i] := i + 65;
  Writeln(StringOf(MyTByteArr)); {ABCDE}
{取单个字符}
  p := PByte(MyTByteArr);
  Writeln(Chr(p^)); {A}
  p := PByte(@MyTByteArr[2]);
  Writeln(Chr(p^)); {C}
  p^ := Ord('-');   //Ord是取字符对应的数字
  Writeln(StringOf(MyTByteArr)); {AB-DE}
end;

{main主函数}
begin
 MyFunc1;
 Readln;
end.