比较两个二维数组是否相等
来源:互联网 发布:星际皆知你爱我 网盘 编辑:程序博客网 时间:2024/05/16 06:23
用 CompareMem 对比内存即可.
{对比静态数组}procedure TForm1.Button1Click(Sender: TObject);var arr1: array[0..3] of AnsiChar; arr2: array[0..3] of Byte;begin arr1[0] := 'A'; arr1[1] := 'B'; arr1[2] := 'C'; arr1[3] := 'D'; arr2[0] := 65; arr2[1] := 66; arr2[2] := 67; arr2[3] := 68; if CompareMem(@arr1, @arr2, SizeOf(arr1)) then ShowMessage('arr1 与 arr2 中的数据相同');end;{对比动态数组}procedure TForm1.Button2Click(Sender: TObject);var arr1: array of AnsiChar; arr2: array of Byte;begin SetLength(arr1, 4); SetLength(arr2, 4); arr1[0] := 'A'; arr1[1] := 'B'; arr1[2] := 'C'; arr1[3] := 'D'; arr2[0] := 65; arr2[1] := 66; arr2[2] := 67; arr2[3] := 68; if CompareMem(arr1, arr2, SizeOf(arr1)) then ShowMessage('arr1 与 arr2 中的数据相同');end;{多维数组也一样}procedure TForm1.Button3Click(Sender: TObject);var arr1: array[0..1, 0..1] of AnsiChar; arr2: array[0..1, 0..1] of Byte;begin arr1[0,0] := 'A'; arr1[0,1] := 'B'; arr1[1,0] := 'C'; arr1[1,1] := 'D'; arr2[0,0] := 65; arr2[0,1] := 66; arr2[1,0] := 67; arr2[1,1] := 68; if CompareMem(@arr1, @arr2, SizeOf(arr1)) then ShowMessage('arr1 与 arr2 中的数据相同');end;静态数组与动态数组的不同之处在于:动态数组为动态指针,运行时动态生成,而静态数组编译时生成。
- 比较两个二维数组是否相等
- 如何比较两个二维数组是否相等
- delphi 如何比较两个二维数组是否相等
- 比较两个数组是否相等
- 比较两个字节数组是否相等
- javascript比较两个数组是否相等
- php如何比较两个数组是否相等???
- C#中比较两个值型一维数组变量是否值相等
- C#中比较两个值型一维数组变量是否值相等
- C#中比较两个值型一维数组变量是否值相等
- 比较两个一维数组的内容是否相等
- 比较两个json是否相等,忽略数组内元素顺序
- Javascript比较两个数组是否相等(存在重复元素)
- 比较两个字符串是否相等?
- 比较两个数字是否相等
- 比较两个对象是否相等
- 比较两个字符串是否相等
- 比较两个UIImage是否相等
- 双击EXCEL 文件打不开,要先打开EXCEL才能打开EXCEL文件
- 更改Eboot.nb0大小
- 快速编译修改过的PUBLIC代码
- 一百分的女人碰不上一百分的男人。
- SQL 中主键决策
- 比较两个二维数组是否相等
- 用putty连接虚拟机提示connection refused
- Flash网络游戏开发入门经验共享(转)
- android源码,SDK及ADT编译
- 招行香港一卡通
- 在控制台程序中隐藏控制台窗口
- 招商银行香港一卡通的猫腻
- PowerDesigner教程系列(一)概念数据模型
- vmware ping不通主机的原因--vmware bridge protocol