文档章节

学习结构[记录]类型(7) - 结构也可以有构造函数

涂孟超
 涂孟超
发布于 2014/09/26 15:30
字数 179
阅读 6
收藏 0
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


type
  TRec = record    {定义结构 TRec}
    name: ShortString;
    age: Word;
    constructor Create(str: ShortString; w: Word); {构造函数}
  end;

{ TRec 构造函数实现}
constructor TRec.Create(str: ShortString; w: Word);
begin
  name := str;
  age := w;
end;



//使用结构
procedure TForm1.Button1Click(Sender: TObject);
var
  rec: TRec;
begin
  rec.Create('李四', 81);
  ShowMessage(rec.name); {李四}
end;

end.

 
 
 
 
 

 

 

  
结构的方法、属性都是在 Delphi 7 以后的版本中加入的, 非常类似与"类", 但又不如在"类"里完善;
它的其他一些新特性也好像是从"类"里搬过来的, 等在"类"里面研究吧.

本文转载自:http://www.cnblogs.com/del/archive/2008/01/09/1032267.html

涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
例说数据结构&STL(十三)——pair

1 pair类型概述   pair的功能就像它的名字一样,pair将一对值组合成一个值,这一对值可以具有不同的数据类型,两个值可以分别用pair的两个公有函数first和second访问。  1.1 pair类型概述...

fx677588
2017/08/19
0
0
DateTime有默认构造函数吗?

不知道你看到这个题目会不会很郁闷,但这的确是一个很值得考虑的问题。 你当然会说,这有啥,代码运行一下不就知道啦。 1 DateTime d = new DateTime(); 编译虽然通过,但我们要考虑一下,这...

彭博
2012/03/09
302
0
C语言数据结构预备知识模块二:结构体

版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/sinat_38321889/article/details/80891331 继上面的基础模块知识之指针之后,我们对数据结构的预备知识——结...

善水输出端
2018/07/03
0
0
语法基础——C++语法基础

前言 最近发现要学习C++来开发NDK,不得不把基础的东西记录下来,否则学的太多会混淆,废话不多说,开始记录我的C++学习之旅吧 HelloWord 导库 命名空间 输出函数 命名空间 1、命名空间属性访...

qq_30379689
2017/08/31
0
0
阅读《LEARNING HARD C#学习笔记》知识点总结与摘要一

本人有幸在Learning Hard举行的整点抢书活动《Learninghard C#学习笔记》回馈网友,免费送书5本中免费获得了一本《LEARNING HARD C#学习笔记》,我(梦在旅途)虽然从事.NET开发多年,但一直...

技术小牛人
2017/11/15
0
0

没有更多内容

加载失败,请刷新页面

加载更多

nginx+tomcat配置https

1、nginx配置https和【proxy_set_header X-Forwarded-Proto $scheme;】 2、java代码: String basePath = request.getScheme() + "://" + request.getServerName() + ":" + request.getServe......

perofu
30分钟前
4
0
必看的Linux系统新手进阶老手心得

不知道从什么时候起,linux这个话题变得越来越普及,成为大家经常讨论的话题。无论在网络上还是实际生活中,竟然很多人都在纠结学习linux的问题。网络上给的答案千千万万,而却还有很多人踌躇...

Linux就该这么学
33分钟前
4
0
Spring Boot 配置元数据指南

1. 概览 在编写 Spring Boot 应用程序时,将配置属性映射到 Java bean 上是非常有用的。但是,记录这些属性的最好方法是什么呢? 在本教程中,我们将探讨 Spring Boot Configuration Proces...

liululee
36分钟前
3
0
foreach查找子类

$list = $menu_model -> menu_list();$parent_list = [];foreach ($list as $v){ if ($v['pid'] == 0) { $parent = $v; foreach ($list as $v1) ......

小小小壮
48分钟前
3
0
基于 HTML5 Canvas 实现的 TP-LINK 电信拓扑设备面板

前言 今天我们以真实的 TP-LINK 设备面板为模型,完成设备面板的搭建,和指示灯的闪烁和图元流动。 先来目睹下最终的实现效果:http://www.hightopo.com/demo/blog_tplink_20170511/index.h...

htdaydayup
54分钟前
4
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部