PByte和PChar的关系

作为指针是相同的，

解析的内容，稍微有点区别。

 

var s:String;P:PChar;B:PByte;a:Integer;
begin
  s:='1234';
  P:=PChar(s);//按chr保存
  for a:=0 to 7 do
  begin
    Memo1.Lines.add(P^);
    Inc(P);
  end;
  B:=PByte(s);//按Byte保存
  for a:=0 to 7 do
  begin
    Memo1.Lines.add(IntToStr(B^)+','+Chr(B^));
    Inc(B);
  end;
end;