delphi如何取得结构体指针的成员的首地址的值?
1个回答
展开全部
//假设定义了以下结构体和结构体指针
type
PStudent = ^TStudent;
TStudent = record
Name: string;
Sex: string;
Birth: TDate;
end;
//显示成员Name的地址,你想要的是这个吧?
procedure TForm1.Button1Click(Sender: TObject);
var
PStudent1: PStudent;
begin
New(PStudent1);
ShowMessage(IntToStr(Integer(@PStudent1^.Name))); //取结构体指针成员变量Name的地址
Dispose(PStudent1);
end;
type
PStudent = ^TStudent;
TStudent = record
Name: string;
Sex: string;
Birth: TDate;
end;
//显示成员Name的地址,你想要的是这个吧?
procedure TForm1.Button1Click(Sender: TObject);
var
PStudent1: PStudent;
begin
New(PStudent1);
ShowMessage(IntToStr(Integer(@PStudent1^.Name))); //取结构体指针成员变量Name的地址
Dispose(PStudent1);
end;
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询