创建矩阵:VarArrayCreate(const Bounds: array of Integer;AVarType: TVarType): Variant;
引用单元:Variants.pas
procedure TForm1.Button1Click(Sender: TObject);
var
values : Variant;
begin
// [0,n,0,1] n*2 的二维 矩阵列
// [0,n,0,1,0] n*2 的三维 矩阵列
// [0,n,0,1,0,1] n*2 的四维矩阵列
values := VarArrayCreate([0,2,0,1],varVariant);
values[0,0] := 'hello world';
values[0,1] := 'qson';
values[1,0] := 'jack';
values[1,1] := 'tom';
values[2,0] := 'Lucy';
values[2,0] := VarArrayOf(['CC','BB','DD','EE','FF']);
// ShowMessage(values[1,0]); {jack}
// ShowMessage(values[2,0][0]); {CC}
// ShowMessageFmt('%d',[VarArrayLowBound(values,1)]); {0}
// VarArrayLowBound(const A: Variant; Dim: Integer) Dim需要大于0,小于数组最大值 反之为无效索引 用去遍历矩阵列数组
//那一级的最低值 2 级最低值
ShowMessage(values[VarArrayLowBound(values,2),1]);
//那一级的最高值 2 级最高值
ShowMessage(values[VarArrayHighBound(values,2),1]);
end;
分享到:
相关推荐
通过VarArrayCreate函数创建一个字节型的可变数组,然后在需要发送数据时,使用VarArrayRedim函数调整数组大小,并将二进制数据复制到可变数组中。最终,将可变数组作为参数传递给MSComm控件的Output属性。 示例...
假设需要从下位机(例如单片机)向Delphi应用程序发送一组双字节整数数组。以下是一个简单的实例代码: ```pascal uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ...
此函数接收两个参数:一个是指定数组维度范围的整数数组,另一个是 Variant 类型(例如 `varByte`、`varSmallInt` 等)。例如: ```delphi v := VarArrayCreate([1, 10000], varByte); ``` 此代码段创建了一个从 1 ...
Delphi WebBrowser 将一段HTML文字显示在网页浏览器中,实际是创建了一个HTML格式内容并显示出来,主要使用Delphi中内置的WebBrowser方法来实现: WebBrowser1.Navigate('about:blank'); while(tag=0) do ...
我们将通过具体示例和详细解释,理解如何利用Delphi的VARIANT特性,特别是VarArrayCreate、VarArrayRedim等函数的高级应用。 ### 1. VarArrayCreate `VarArrayCreate`是创建变体数组的重要函数。它接受两个参数:...
`Dsoframer`是一个用于处理OLE对象的控件库,在Delphi等环境中广泛使用。为了更好地适应Delphi 7的开发环境,本文将详细介绍如何对`Dsoframer`进行必要的修改,使其能够顺利运行并支持流数据的处理。 #### 二、修改...
OLEVariant是一种用于存储各种类型数据(包括基本类型如整型、浮点型等,以及复杂类型如数组、对象等)的变体类型。它主要应用于COM(Component Object Model)组件编程环境中,以适应不同类型的数据交互需求。 ###...