Delphi 数组 详解
技术交流,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上面使�
相关文档：
一、概述及示例代码
Delphi中包括许多已经封装好的类及控件，其中的非可视化控件库以功能方式划分可处理诸多应用需求。若使用C＋＋实现系统时对某些功能简单调用delphi中现成的库时即可。因此将delphi中的库以DLL形式封装好之后如何将方法导出可供C＋＋调用是本文记录的重点。C＋＋调用的方式有多种，在这里只讨论一种静 ......
屏幕的分辨率用这个
x=GetSystemMetrics(SM_CXSCREEN)
y=GetSystemMetrics(SM_CYSCREEN)
同上。
.而且获得屏幕上的像素好像应该使用
screen.pixelsperinch函数
int GetDeviceCaps(
......
枚举类型
Pascal程序不仅用于数值处理，还更广泛地用于处理非数值的数据。例如，性别、月份、星期几、颜色、单位名、学历、职业等。
1、枚举类型的定义
格式: type 枚举类型标识符=(标识符1,标识符2,…,标识符n)
2、枚举类型数据特点
① 枚举元素只能是标识符；
例如，下列类型定义是合法的：
type ......
Delphi字符串加密解密函数
功能：字符串加密和解密
首先定义一个常量数组
const
XorKey:array[0..7] of Byte=($B2,$09,$AA,$55,$93,$6D,$84,$47); //字符串加密用
在程序里加入以下两个函数，
function Enc(Str:String):String;//字符加密函數 這是用的一個&# ......
