Delphi : record 记录类型 - 结构指针

unitUnit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes,Graphics, Controls,Forms,

Dialogs,StdCtrls;

type

TForm1 =class(TForm)

Button1:TButton;

Button2:TButton;

Button3:TButton;

Button4:TButton;

procedureButton1Click(Sender:TObject);

procedureButton2Click(Sender:TObject);

procedureButton3Click(Sender:TObject);

procedureButton4Click(Sender:TObject);

end;

var

Form1:TForm1;

implementation

{$R *.dfm}

type

TRec =record {定义结构 TRec}

name:string[12];

age:Word;

end;

TPRec =^TRec; {定义 TRec 结构的指针类型 TPRec}

var

Rec: TRec; {声明结构变量}

PRec1,PRec2:TPRec; {声明 TPRec指针变量}

PRec3: ^TRec; {声明TRec 结构的指针变量, 现在 PRec1 与 PRec3是不同类型的变量}

P: Pointer; {声明无类型指针}

//通过结构指针访问结构

procedure TForm1.Button1Click(Sender:TObject);

begin

Rec.name :='张三';

Rec.age :=18;

PRec1 := @Rec; {把 Rec 的地址告诉PRec1}

{本来应该这样访问}

ShowMessage(PRec1^.name);{张三}

{Delphi允许这样简单使用结构指针}

ShowMessage(PRec1.name); {张三}

{如果我们通过指针修改了数据}

PRec1.name :='李四';

{那么}

ShowMessage(Rec.name);{李四}

{因为 PRec1 和 Rec所指的是同一个数据}

end;

//如果是单独使用指针,必须先给内存

procedure TForm1.Button2Click(Sender:TObject);

begin

GetMem(PRec2,SizeOf(TRec));

PRec2.name :='王五';

PRec2.age :=9;

ShowMessage(PRec2.name);{王五}

{手工给的内存,必须手工释放}

FreeMem(PRec2);

end;

//虽是同一个结构的指针,但还不是一个类型

procedure TForm1.Button3Click(Sender:TObject);

begin

Rec.name :='孙六';

Rec.age :=16;

{把 Rec 的地址给属于 ^Rec 类型的 PRec3指针}

PRec3 :=@Rec;

ShowMessage(PRec3.name);{孙六}

{如果要把 PRec3 知道的值告诉 PRec1,需要类型转换}

PRec1 :=TPRec(PRec3);

ShowMessage(PRec1.name);{孙六}

{反过来想, 如果要把 PRec1 知道的值告诉 PRec3呢?}

Rec.name :='赵七';

Rec.age :=24;

PRec1 :=@Rec;

ShowMessage(PRec1.name);{赵七}

{这样转换}

TPRec(PRec3) :=PRec1;

ShowMessage(PRec3.name);{赵七}

end;

//用无类型指针读写 TRec中的数据

procedure TForm1.Button4Click(Sender:TObject);

begin

Rec.name :='杜八';

Rec.age :=36;

P :=@Rec;

{赋值}

TPRec(P).name :='侯九';

{取值}

ShowMessage(TPRec(P).name);{侯九}

end;

end.

来源：http://blog.sina.com.cn/s/blog_4ad042e50102e1nd.html