学习结构[记录]类型(1) - 开始
2008-01-09 13:05
225 查看
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} //如果要记录一个人的姓名和年龄, 可以: procedure TForm1.Button1Click(Sender: TObject); var name: string; age: Word; begin {赋值} name := '张三'; age := 18; {读取} ShowMessage(Format('%s今年%d岁', [name,age])); {张三今年18岁} end; //不如定义一个结构类型 procedure TForm1.Button2Click(Sender: TObject); type TPerson = record name: string[12]; {在结构里面不能使用长字符串} age: Word; end; var person: TPerson; {声明结构变量} const str = '%s今年%d岁'; {为格式化输出准备一个常量} begin {赋值} person.name := '李四'; person.age := 81; {读取} ShowMessage(Format(str, [person.name,person.age])); {李四今年81岁} end; end.
相关文章推荐
- 学习结构[记录]类型(3) - 结构间的关系
- 学习结构[记录]类型(9) - 变体结构
- 学习结构[记录]类型(3) - 结构间的关系
- 学习结构[记录]类型(4) - 结构指针
- 学习结构[记录]类型(7) - 结构也可以有构造函数
- 学习结构[记录]类型(4) - 结构指针
- 学习结构[记录]类型(2) - 压缩结构
- 记录我的数据结构(C语言)学习历程(2017年3月30号开始):
- 记录我的数据结构(C语言)学习历程(2017年3月30号开始):
- 记录我的数据结构(C语言)学习历程(2017年3月30号开始)
- Delphi中学习结构[记录]类型用法(转载)
- 学习结构[记录]类型(2) - 压缩结构
- 学习结构[记录]类型(5) - 结构的方法
- 学习结构[记录]类型(6) - 结构的属性
- 学习结构[记录]类型(8) - 结构嵌套
- jQuery源码学习记录(1)基本结构和选择器
- 开始写博客文章,记录学习的各个方面
- 从今天起,开始记录学习IOS的点点滴滴。
- 记录自己的Android学习(二)Android应用程序结构详解
- 今天开始学习Openstack,记录一下