作为指针是相同的,
解析的内容,稍微有点区别。
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;