语法基础: 使用不同的数据类型标记数组
2017-02-03 17:17
821 查看
万一老师博客:http://www.cnblogs.com/del/archive/2009/10/25/1589631.html
-------------------------------------------------------------------------------------------
-------------------------------------------------------------------------------------------
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} //使用 Byte、Word、Boolean 标记数组 procedure TForm1.Button1Click(Sender: TObject); var arr1: array[Byte] of Integer; arr2: array[Word] of Integer; arr3: array[Boolean] of Integer; begin ShowMessage(IntToStr(Length(arr1))); {256} arr1[Low(arr1)] := 11; arr1[High(arr1)] := 22; ShowMessageFmt('%d, %d', [arr1[0], arr1[255]]); {11, 22} ShowMessage(IntToStr(Length(arr2))); {65536} arr2[0] := 33; arr2[65535] := 44; ShowMessageFmt('%d, %d', [arr2[Low(arr2)], arr2[High(arr2)]]); {33, 44} ShowMessage(IntToStr(Length(arr3))); {2} arr3[False] := 55; arr3[True] := 66; ShowMessageFmt('%d, %d', [arr3[Low(arr3)], arr3[High(arr3)]]); {55, 66} end; //使用 "子界" 标记数组 procedure TForm1.Button2Click(Sender: TObject); type TC = 'a'..'z'; var arr: array[TC] of Integer; n1,n2,n3: Integer; begin ShowMessage(IntToStr(Length(arr))); {26} arr['a'] := 11; arr['b'] := 22; arr['z'] := 33; n1 := arr[Chr(97)]; n2 := arr['abc'[2]]; n3 := arr['z']; ShowMessageFmt('%d,%d,%d', [n1,n2,n3]); {11,22,33} end; //使用 "枚举" 标记数组 procedure TForm1.Button3Click(Sender: TObject); type TMyEnum = (A, B, C, D); var arr: array[TMyEnum] of Integer; i: Integer; begin arr[A] := 11; arr := 22; arr[C] := 33; arr[D] := 44; [b]for i in arr do ShowMessage(IntToStr(i)); { 11/22/33/44 } end; //还是使用 "枚举" 标记数组 procedure TForm1.Button4Click(Sender: TObject); type TMyEnum = (X=1, Y=3, Z=5); var arr: array[TMyEnum] of Integer; i,n1,n2,n3: Integer; begin arr[X] := 11; arr[Y] := 22; arr[Z] := 33; i := 1; n1 := arr[TMyEnum(i)]; i := 3; n2 := arr[TMyEnum(i)]; i := 5; n3 := arr[TMyEnum(i)]; ShowMessageFmt('%d,%d,%d', [n1,n2,n3]); {11,22,33} end; end.
相关文章推荐
- 语法基础: 使用不同的数据类型标记数组
- Swift入门基础(语法,数据类型,数组,字典)
- 黑马程序员———Java的基础语法和数据类型、数组
- Java基本语法--数据类型、运算符表达式、基本控制语句、数组使用以及练习
- C基础语法(二)---复杂数据类型(数组和字符串)
- 数据类型和抽象数据类型是如何定义的。二者有何相同和不同之处,抽象数据类型的主要特点是什么?使用抽象数据类型的主要好处是什么?
- objective-c 使用NSNumber 将int float long等数据类型加入到数组或字典中
- Java私塾跟我学系列――JAVA篇 第二章 基础语法数据类型(2)
- 主键字段使用不同数据类型的简单比较
- 使用ASP.NET AJAX异步调用Web Service和页面中的类方法(8):服务器端和客户端数据类型的自动转换:数组类型
- C\C++ 程序员从零开始学习Android - 个人学习笔记(四) - java基础 - 数据类型、变量、字符串、数组
- C#语法:问号"?"数据类型的使用
- DB2 基础: 使用 DB2 数据移动实用工具中的文件类型修饰符
- 水晶报表-数组数据类型(Crystal 语法)
- Java基础小知识——基本数据类型和字符串以及字节数组的转换
- 复杂数据类型使用基础
- 使用OPENDATASOURCE和OPENROWSET在不同类型的数据库之间导入导出数据
- Java基础复习——数据类型、变量和数组
- Java私塾跟我学系列――JAVA篇 第二章 基础语法数据类型(1)
- PHP语法基础:数据类型、常量与变量的声明及区别