语法基础: 使用不同的数据类型标记数组
16lz
2021-05-01
语法基础: 使用不同的数据类型标记数组
unit Unit1;interfaceuses 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[B] := 22; arr[C] := 33; arr[D] := 44; 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.
更多相关文章
- 学 Win32 汇编[29] - 串指令: MOVS*、CMPS*、SCAS*、LODS*、REP
- 学用 ASP.Net 之 "字符串" (3): string 类的非扩展方法
- 学 Win32 汇编[15]: LOOP 与标号
- 0425PHP编程作业
- php入门之 js数组遍历与php的区别
- C语言中易错的地方(一)
- 冷月手撕408之数据结构(3)-顺序表
- 210406 类数组 获取遍历DOM元素 向元素添加文本 获取元素的自定
- PHP:实例演示PHP模块加载和JavaScript和PHP中for/forEach两种语