• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号
登陆 注册

Delphi记录类型-结构指针

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

转自：万一老师的 Delphi 博客

 

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(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.

 

 

鲜花
握手
雷人
路过
鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
More+
上一篇：
关于matlab中调用libsvm中编译器的安装tdm-gcc以及mex的编译发布时间：2022-07-18
下一篇：
[matlab] 14.DBSCAN 聚类发布时间：2022-07-18
热门推荐
More+
热门话题
More+
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服（服务时间 9:00～18:00）

在线QQ客服
地址：深圳市南山区西丽大学城创智工业园
电邮：jeky_zhao#qq.com
移动电话：139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap