Question

delphi如何取得结构体指针的成员的首地址的值？

Answer 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;