UnitUnit1;InterfaceusesWindows, Messages, sysutils, variants, Classes, Graphics, Controls, Forms, Dialogs, Stdctrls;typeTForm1 =class(Tform) Button1:tbutton; Button2:tbutton; Button3:tbutton; Button4:tbutton;procedureButton1Click (Sender:tobject);procedureButton2click (Sender:tobject);procedureButton3click (Sender:tobject);procedureButton4click (Sender:tobject);End;varForm1:tform1;Implementation{$R *.DFM}//Using Byte, Word, and Boolean tag arraysprocedureTform1.button1click (Sender:tobject);varARR1:Array[Byte] ofInteger; ARR2:Array[Word] ofInteger; ARR3:Array[Boolean] ofInteger;beginShowMessage (IntToStr (Length (ARR1)));{}Arr1[low (arr1)]: = One; Arr1[high (arr1)]: = A; SHOWMESSAGEFMT ('%d,%d ', [arr1[0], arr1[255]]);{One, one}ShowMessage (IntToStr (Length (ARR2)));{65536}arr2[0] := -; arr2[65535] := -; SHOWMESSAGEFMT ('%d,%d ', [Arr2[low (ARR2)], Arr2[high (ARR2)]);{+, +}ShowMessage (IntToStr (Length (ARR3)));{2}Arr3[false]: = -; Arr3[true]: = the; SHOWMESSAGEFMT ('%d,%d ', [Arr3[low (ARR3)], Arr3[high (ARR3)]);{in.End;//using the "child Bounds" tag arrayprocedureTform1.button2click (Sender:tobject);typeTC =' A '..' Z ';varArrArray[TC] ofInteger; N1,n2,n3:integer;beginShowMessage (IntToStr (arr));{+}arr[' A '] := One; arr[' B '] := A; arr[' Z '] := -; N1: = ARR[CHR ( the)]; N2: = arr[' abc '[2]]; N3: = arr[' Z ']; SHOWMESSAGEFMT ('%d,%d,%d ', [N1,n2,n3]);{11,22,33}End;//Using the "enum" tag arrayprocedureTform1.button3click (Sender:tobject);typeTmyenum = (A, B, C, D);varArrArray[Tmyenum] ofInteger; I:integer;beginArr[a]: = One; ARR[B]: = A; ARR[C]: = -; ARR[D]: = -; forIinchArr DoShowMessage (IntToStr (i));{11/22/33/44}End;//or using an "enumeration" tag arrayprocedureTform1.button4click (Sender:tobject);typeTmyenum = (x=1, y=3, z=5);varArrArray[Tmyenum] ofInteger; I,n1,n2,n3:integer;beginARR[X]: = One; Arr[y]: = A; Arr[z]: = -; 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.
XE3 Essay 9: Marking an array with different data types