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';这么写啊
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';这么写啊
解决方案 »
- delphi pannel控件
- 给大家推荐个免费空间@_@
- 关于QuickReport的问题
- 采用THashedStringList,如何做模糊匹配?
- 两个和数学挂钩的超级难问题!
- 谁做过工资管理系统! 给点经验!
- 图像闪烁怎么解决?
- 怎样检测一个窗体从打开到关闭其中的内容有没改变?
- 为何我用 Delphi写的 MDI Child Window关闭后无法打开?
- 有没有哈尔滨的朋友,进来留一下联系方式。哈尔滨的程序员好像少的可怜
- 奇怪!!!fastreport2.5(Delphi6)的程序在运行预览报表时提示Stack OverFlow,然后就自动关闭
- 删除表的全部内容后,再添加记录出错 ????????????????
但delphi的編繹器幫了我們, 如果你聲明成
aa.id := 111;
其實編繹也會當成 aa^.id