zoukankan      html  css  js  c++  java
  • delphi 记录类型-结构指针

    unit Unit1;

    interface

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

    type
      TForm1 = class(TForm)
        Button1: TButton;
        procedure Button1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;

    var
      Form1: TForm1;

    implementation

    {$R *.dfm}



    type
      TRec = record       {定义结构 TRec}
      name: string;
      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);  {张三}
    end; 
        

    //如果是单独使用指针, 必须先给内存
    procedure TForm1.Button2Click(Sender: TObject);
    begin
      GetMem(PRec2, SizeOf(TRec));
      PRec2.name := '王五';
      PRec2.age := 9;
      ShowMessage(PRec2.name); {王五}
      {手工给的内存, 必须手工释放}
      FreeMem(PRec2);
    end;
     
     

    end.
     
     




  • 相关阅读:
    跨域问题
    vuejs devtools 插件安装
    vue开发环境搭建
    .net core 入门一
    go 基础 处理异常
    go 基础 结构体 接口 访问权限
    【火炉炼AI】机器学习040-NLP性别判断分类器
    【火炉炼AI】机器学习039-NLP文本分类器
    【火炉炼AI】机器学习038-NLP创建词袋模型
    【火炉炼AI】机器学习037-NLP文本分块
  • 原文地址:https://www.cnblogs.com/xe2011/p/3884395.html
Copyright © 2011-2022 走看看