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;