参考:http://blog.csdn.net/qustdong/article/details/9230743 参考:http://www.cnblogs.com/xumenger/p/4402227.html 1.根据枚举定义集合 type TMyColor = (mcBlue, mcRed); //定义了一个枚举类型TMyColor TMyColorSet = set of TMyColor; //定义了一个基于枚举类型的集合TMyColorSet 2.根据枚举定义数组 type TMyE
delphi中类引用的使用实例 类引用类引用(Class Reference)是一种数据类型,有时又称为元类(MetaClass),是类的类型的引用.类引用的定义形式如下: class of type 例如: type SomeClass = class of TObject; var AnyObj: SomeClass; TObject = class end; TClass = class of TObject; 下面的例子说明了类引用的用法: program Project1; {$APP
1.具体见注释 2.后续或有更新 public class MyArray { private long[] array; private int cnt; // 自定义数组类的元素个数 /** 使用自定义类封装数组,添加类方法实现数据操作 */ public MyArray() { array = new long[50]; } public MyArray(int size) { array = new long[size]; } /** 插入数据,返回值为空 */ public void
这是一个实例: procedure TMainForm.Button1Click(Sender: TObject);var arr:array of array of string;begin setlength(arr,2,3); arr[1,2]:='this is a test'; setlength(arr,0,0); setlength(arr,4,5); showmessage(arr[1,2]); end; 声明一个二维数组的方法是用 array of array of