学习结构[记录]类型(8) - 结构嵌套
2008-01-09 18:01
357 查看
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} //间接嵌套 procedure TForm1.Button1Click(Sender: TObject); type TWife = record {妻子的数据结构} name: string; age: Word; end; TMan = record {男人的数据结构} name: string; age: Word; wife: TWife; {这里嵌套了结构} end; var man: TMan; begin man.name := '张三'; man.age := 63; man.wife.name := '马翠'; man.wife.age := 36; ShowMessage(man.name + #32 + man.wife.name); {张三 马翠} ShowMessage(IntToStr(SizeOf(man))); end; //直接嵌套 procedure TForm1.Button2Click(Sender: TObject); type TMan = record {男人的数据结构} name: string; age: Word; wife: record name: string; age: Word; end; {直接嵌套结构} end; var man: TMan; begin man.name := '张三'; man.age := 63; man.wife.name := '马翠'; man.wife.age := 36; ShowMessage(man.name + #32 + man.wife.name); {张三 马翠} end; //另外, 说到直接嵌套, 其实结构事先不定义, 也是可以直接使用的, 如: procedure TForm1.Button3Click(Sender: TObject); var man: record name: string; age: Word; end; begin man.name := '李四'; man.age := 81; ShowMessage(man.name); {李四} end; { 注意没有, 在本页的例子中, 结构中的 name 被声明为 string ! 结构中不是不允许长字符串吗? 其实 Delphi 在这里是把 string 当作 ShortString 用的. 也就是说这里的 string 最大容量是 255 个字符, 127 个汉字. } end.
相关文章推荐
- 学习结构[记录]类型(3) - 结构间的关系
- 学习结构[记录]类型(2) - 压缩结构
- 学习结构[记录]类型(2) - 压缩结构
- 学习结构[记录]类型(5) - 结构的方法
- 学习结构[记录]类型(6) - 结构的属性
- 学习结构[记录]类型(9) - 变体结构
- 学习结构[记录]类型(4) - 结构指针
- 学习结构[记录]类型(3) - 结构间的关系
- 学习结构[记录]类型(4) - 结构指针
- Delphi中学习结构[记录]类型用法(转载)
- 学习结构[记录]类型(7) - 结构也可以有构造函数
- 学习结构[记录]类型(1) - 开始
- Delphi 记录类型- 结构指针
- Sql2012如何将远程服务器数据库及表、表结构、表数据导入本地数据库 自定义日志记录功能,按日记录,很方便 C#常量和字段以及各种方法的语法总结 类型,对象,线程栈,托管堆在运行时的关系,以及clr如何调用静态方法,实例方法,和虚方法 asp.net webapi 自定义身份验证
- Fortran学习记录1(Fortran数据类型)
- Delphi 记录类型- 结构指针
- Python对象类型总结(学习记录)
- DELPHI学习---结构类型
- C++中关于类型转换的学习记录
- 慕课学习C笔记01-第1~4章数据类型、运算符和程序结构语句