procedure TForm1.Button1Click(Sender: TObject);
type
  PMyRec = ^MyRec;
  MyRec = Record
    id : integer;
    name : string;
  end;
var
   aa : PMyRec;
   bb : MyRec;
begin
   new(aa);
   aa.id := 111;
   aa.name := 'ssssss';
  // edit1.Text := inttostr(aa.id);
  //edit2.Text := aa.name;
   dispose(aa);
   bb.id := 222;
   bb.name := 'bbbbb';
end;
怎么记录和记录指针可成
   aa.id := 111;
   aa.name := 'ssssss';
也可以呢。
按理应该这么写啊:
   aa^.id := 111;
   aa^.name := 'ssssss';这么写啊