haiou327’blog

TMyRec = record sName: string[15]; Sex: integer; end; pMyRec = ^TMyRec; arr1 = array of pMyRec;var a1: arr1;procedure TForm1.Button1Click(Sender: TObject);var i: integer;begin

Const arr1: array [0 .. 1, 0 .. 1] of string = (('A0B0', 'A1B0'), ('A0B1', 'A1B1')); arr2: array [0 .. 2, 0 .. 1] of string = (('X0Y0', 'X1Y0'), ('X2Y0', 'X0Y1'), ('A0', 'B0'));type TC

type Tarr = array of Integer; Parr = ^Tarr;var i: integer; Arr: Parr;procedure TForm1.btn1Click(Sender: TObject);begin

function FunArrConst(const Value: array of const):string;var i: Integer; OrigNum:string;begin for i := Low(Value) to High(Value) do with Value[i] do case VType of vtAnsiStrin

//var a1,a2:array[0..5]of integer; i:integer;begin for i:=Low(a1) to High(a1) do a1[i]:=i; Move(a1,a2,SizeOf(a1)); a1[3]:=255; //CopyMemory(@a2[0], @a1[0], Length(a1));

function myFunc(a: array of const): string;var i: integer;begin for i := Low(a) to High(a) do case a[i].VType of 0: begin result := Result + ' ' + Format('%d', a[i])

type TdyArr = array of Integer;function myFunc(var dyArr: TdyArr): integer;var i, d: Integer;begin Result := 2 * dyarr[0]; for i := Low(dyarr) to High(dyArr) do Result := Result - dyAr

所属单元：SysUtils函数功能：快速内存比较函数，可对两个文件比较、数组进行比较。据测试速度比一般算法要高60~110%。一、文件的比较你是否遇到过比较两个任意后缀名文件内容是否相同的问题？（TFileStream其他类可以方便的操作这些文件，但如果说

Type TMyArr = array of array of array of Integer; Pint = ^TMyArr;var PArr: Pint; i, j, k, ic, jc, kc: Integer;begin ic := 2; jc := 3; kc := 4; New(PArr); SetLength(PArr^, ic, jc, k