随笔分类 -  数组相关

摘要：type TMyEnum = (Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday); {定义枚举} var weekArr: array[TMyEnum] of string; {定义数组} myEnum: TMyEnum; {定义枚举变量} begin {数组赋值} week... 阅读全文

摘要：var Arr: array[0..3] of Variant; begin Arr[0] := 123; Arr[1] := 'wy'; Arr[2] := True; Arr[3] := VarArrayOf([1,'wanyi',1.5]); //变体数组的元素也可以是变体数组 ShowMessage(Arr[0]); //123, 不需要转换 ShowM... 阅读全文

摘要：//例1: var StrArr: array of String; //动态数组定义时不与维数 begin SetLength(StrArr,6); //分配6个元素位置: 0-5 StrArr[0] := '万一'; //动态数组的下界是 0 ShowMessage(StrArr[0]); //分配空间后和静态数组一样使用 StrArr := nil; ... 阅读全文

摘要：//1. 标准方法： var MyArr: array[0..10] of Integer; //定义静态数组 //2. 可以使用非0下标： var MyArr: array[9..10] of Integer; //不能提倡，这样不容易与系统函数沟通 //3. 根据预定义类型来声明数组： type TMyArr = array[0..10] of Integer; /... 阅读全文

摘要：type TOneArray = array of Integer; procedure AddArrayItem(Arr: TOneArray; x: Integer); begin SetLength(Arr,Length(Arr)+1); Arr[High(Arr)] := x; end; 阅读全文