技术交流,DH讲解. 首先我们要知道什么是数组?数组是一堆相同特性数据的一个集合,也就是每个元素的类型必须是一样的,当然在其他一些弱语法的语言里面,数组的元素可以千奇百怪.
例子: Var
A: Array[ 0..2 ] Of Integer ;
Begin
A[ 0 ] := 1 ;
A[ 1 ] := 1.0 ; //这里是错的,因为每个元素都必须是Integer类型
End ;
Delphi中数组分类:
1 定长和不定长.
定长数组:也就是长度在声明的时候就确定了,后面是不能改变的,而在定长数组中,起始序号不必从0开始,可以自己定.例如:
Var
A: Array[ 2..3 ] Of Integer ;
Begin
A[ 2 ] := 1 ;
SetLength(A,3);//这里会出错,定长数组不能再分配
End ;
从上面我们可以看到起始序号是2,但是步长是1,是不能改变的.为什么我们看到很多数组的起始序号都是0呢?习惯而已.大家都习惯在厕所里面去嘘嘘,而你一个人习惯在广场上面嘘嘘,那么大家都会说你不文明了.但是如果大家一开始都是在广场上面嘘嘘的话,不说了太恶心了.
来看一个特殊的用法:
type
THuangJacky = (hjA,hjB,hjC);
const
//用法1
B:array[0..2] of string= ('A','B','C');
//用法2
C:array[THuangJacky] of string= ('A','B','C');
Var
H:THuangJacky;
S:string;
Begin
S:=B[Ord(H)];
S:=C[H];
//B[H] 和 C[1]都会出错
End ;
用法1 和用法2你觉得那种用着爽一些?
从上面例子可以看出来只要是序数类型都可以当数组的序号.但是我们用的时候序号就必须是声明的那种序数类型,所以上面代码注释中才会写出2种错误的情况.
不定长数组:动态数组,也就是声明的时候没有说长度是多少,在使用前必须声明,长度可以再分配.序号必须从0开始.看个简单的例子
Var
A: Array Of Integer ;
Begin
SetLength( A, 3 ) ; //数组一共有3个元素
A[ 0 ] := 1 ;
A[ 1 ] := 2 ;
A[ 2 ] := 3 ;
//A[3]没有它,有它的话,你数一下几个了?不会数数,那我推荐你去街道口小学看一下
SetLength( A, 4 ) ; //如果变长长度,直接增加后面的元素
A[ 3 ] := 4 ; //现在有它了.
SetLength( A, 3 ) ; //如果长度变短,超出部分会被去掉
// A[3]又没有它了
End ;
有时候大家这样要先设定长度,然后再赋值,是不是很麻烦?没有一气呵成的感觉.好吧,再说一招:
Type
TA = Array Of Integer ;
Var
A: TA ;
Begin
A := TA.Create( 1, 2, 3 ) ;
//此招请勿在D7上面使�
技术交流,DH讲解. 最近和肥鸟交流了下关于字符串方面的知识,而这篇文章是很久以前写的,现在发出来吧. 我们写两段代码来对比下:
第一个用Copy函数:
procedure TForm1.Button1Click(Sender: TObject);
var
a,c:Cardinal;
n:Integer;
D:Double;
i:Integer;
b:string;
begin
c:=0; ......
