type PMyRec = ^TMyRec; TMyRec = record Val1: Integer; end; const CMyRec: TMyRec = (Val1: 10); procedure ProcessRec(const ARec: TMyRec); // 加const指示符以指针形式传进来，否则是复制begin GlobalVal1 := ARec.Val1;...end;
