//参考如下代码 procedure TForm1.Button1Click(Sender: TObject); type TPacket = packed record a: array[0..2] of Char; b: array[0..3] of Char; end; var data: string; P: ^TPacket; begin data := '1234567'; P := Pointer(data); ShowMessage(P.a); ShowMessage(P.b); end;
procedure TForm1.Button1Click(Sender: TObject);
type
TPacket = packed record
a: array[0..2] of Char;
b: array[0..3] of Char;
end;
var
data: string;
P: ^TPacket;
begin
data := '1234567';
P := Pointer(data);
ShowMessage(P.a);
ShowMessage(P.b);
end;