var myrecordpointer:Pmycord;//Pmycord是一个自定义的记录型指针//处理的代码
new(myrecordpointer);
myrecordpointer.parentnoteid:=Pmyrecord(treeview1.selected.data)^.parentnoteid;
这是一个例程中的一个片段。为什么在myrecordpointer.parentnoteid不需要加^号,而在
Pmyrecord(treeview1.selected.data)^.parentnoteid中要加^号.
为了解此疑问,我又写了如下语句:
type pname=^Tmyrecord;
Tmyrecord=record
parentnoteid:string;
haha:string;
end;
procedure TForm1.Button1Click(Sender: TObject);
var p,p2:pname;
begin
new(p);
new(p2);
p.parentnoteid:='111';
p2.parentnoteid:=p^.parentnoteid;
p2.haha:=p.parentnoteid;
edit1.Text:=p2.parentnoteid;
edit2.Text:=p2.haha;
end;
发觉执行后没有任何差别,请问这是为什么呢?
new(myrecordpointer);
myrecordpointer.parentnoteid:=Pmyrecord(treeview1.selected.data)^.parentnoteid;
这是一个例程中的一个片段。为什么在myrecordpointer.parentnoteid不需要加^号,而在
Pmyrecord(treeview1.selected.data)^.parentnoteid中要加^号.
为了解此疑问,我又写了如下语句:
type pname=^Tmyrecord;
Tmyrecord=record
parentnoteid:string;
haha:string;
end;
procedure TForm1.Button1Click(Sender: TObject);
var p,p2:pname;
begin
new(p);
new(p2);
p.parentnoteid:='111';
p2.parentnoteid:=p^.parentnoteid;
p2.haha:=p.parentnoteid;
edit1.Text:=p2.parentnoteid;
edit2.Text:=p2.haha;
end;
发觉执行后没有任何差别,请问这是为什么呢?
解决方案 »
- fastreport问题~~
- 在局域网中同步观看音视频广播
- 关于图片比较的问题,请帮忙!!
- 真的delphi不能读一个图片某点的Alpha值吗?如果不能,那么只能说请各位就不要学delphi了.但我希望它能做到.
- 能不能不使用时间控件,写代码使程序等待一段小时间?
- 我的小软件升级了!欢迎大家下载使用,并提供宝贵意见。
- quickreport的预览的“close”按钮怎么汉化
- 访问窗体上某一类所有控件怎样写,如tcomboboxes.enable:=false;其中tcomboboxes表示所有tcombobox类的控件
- 仇深似海,为什么女人会这样!!!!!!!!!!!!!!!!!!
- C++Builder XE7 自带的fastreport 中events失效?
- excel多表问题
- 但我想在窗体中声明引用数据集,我应如何声明?
Pmyrecord就不能识别了