Delphi 中的指针操作 VS C 中的指针

类型：编程工具大小：83.1M语言：中文评分：4.0
标签：

立即下载

在学习C的时候最让人头通的可能就是C中的指针了，但也正是这指针才是C的精华之所在

大家都认为，C语言之所以强大，以及其自由性，很大部分体现在其灵活的指针运用上。因此，说指针是C语言的灵魂，一点都不为过。同时，这种说法也让很多人产生误解，似乎只有C语言的指针才能算指针。Basic不支持指针，在此不论。其实，Pascal语言本身也是支持指针的。从最初的Pascal发展至今的Object Pascal，可以说在指针运用上，丝毫不会逊色于C语言的指针。以下内容分为八个部分，分别是：
一、类型指针的定义
二、无类型指针的定义
三、指针的解除引用
四、取地址（指针赋值）
五、指针运算
六、动态内存分配
七、字符数组的运算
八、函数指针
一、类型指针的定义。对于指向特定类型的指针，在C中是这样定义的：
int *ptr;
char *ptr;
与之等价的Object Pascal是如何定义的呢？
var
ptr : ^Integer;
ptr : ^char;
其实也就是符号的差别而已。
二、无类型指针的定义。C中有void *类型，也就是可以指向任何类型数据的指针。Object Pascal为其定
义了一个专门的类型：Pointer。于是，
ptr : Pointer;
就与C中的
void *ptr;
等价了。
三、指针的解除引用。要解除指针引用（即取出指针所指区域的值），C 的语法是 (*ptr)，Object
Pascal则是 ptr^。
四、取地址（指针赋值）。取某对象的地址并将其赋值给指针变量，C 的语法是
ptr = &Object;
Object Pascal 则是
ptr := @Object;
也只是符号的差别而已。
五、指针运算。在C中，可以对指针进行移动的运算，如：
char a[20];
char *ptr=a;
ptr++;
ptr+=2;
当执行ptr++;时，编译器会产生让ptr前进sizeof(char)步长的代码，之后，ptr将指向a[1]。ptr+=2;这
句使得ptr前进两个sizeof(char)大小的步长。同样，我们来看一下Object Pascal中如何实现：
var
a : array [1..20] of Char;
ptr : PChar; //PChar 可以看作 ^Char
begin
ptr := @a;
Inc(ptr); // 这句等价于 C 的 ptr++;
Inc(ptr, 2); //这句等价于 C 的 ptr+=2;
end;
六、动态内存分配。C中，使用malloc()库函数分配内存，free()函数释放内存。如这样的代码：
int *ptr, *ptr2;
int i;
ptr = (int*) malloc(sizeof(int) * 20);
ptr2 = ptr;
for (i=0; i<20; i++){
*ptr = i;
ptr++;
}
free(ptr2);
Object Pascal中，动态分配内存的函数是GetMem()，与之对应的释放函数为FreeMem()（传统Pascal中获
取内存的函数是New()和 Dispose()，但New()只能获得对象的单个实体的内存大小，无法取得连续的存放
多个对象的内存块）。因此，与上面那段C的代码等价的 Object Pascal的代码为：
var ptr, ptr2 : ^integer;
i : integer;
begin
GetMem(ptr, sizeof(integer) * 20);
//这句等价于C的 ptr = (int*) malloc(sizeof(int) * 20);
ptr2 := ptr; //保留原始指针位置
for i := 0 to 19 do
begin
ptr^ := i;
Inc(ptr);
end;
FreeMem(ptr2);
end;
对于以上这个例子（无论是C版本的，还是Object Pascal版本的），都要注意一个问题，就是分配内存的
单位是字节（BYTE），因此在使用GetMem时，其第二个参数如果想当然的写成 20，那么就会出问题了（
内存访问越界）。因为GetMem(ptr, 20);实际只分配了20个字节的内存空间，而一个整形的大小是四个字
节，那么访问第五个之后的所有元素都是非法的了（对于malloc()的参数同样）。
七、字符数组的运算。C语言中，是没有字符串类型的，因此，字符串都是用字符数组来实现，于是也有
一套str打头的库函数以进行字符数组的运算，如以下代码：
char str[15];
char *pstr;
strcpy(str, "teststr");
strcat(str, "_testok");
pstr = (char*) malloc(sizeof(char) * 15);
strcpy(pstr, str);
printf(pstr);
free(pstr);
而在Object Pascal中，有了String类型，因此可以很方便的对字符串进行各种运算。但是，有时我们的
Pascal代码需要与C的代码交互（比如：用 Object Pascal的代码调用C写的DLL或者用Object Pascal写的
DLL准备允许用C写客户端的代码）的话，就不能使用String类型了，而必须使用两种语言通用的字符数组
。其实，Object Pascal提供了完全相似C的一整套字符数组的运算函数，以上那段代码的Object Pascal
版本是这样的：
var str : array [1..15] of char;
pstr : PChar; //Pchar 也就是 ^Char
begin
StrCopy(@str, 'teststr'); //在C中，数组的名称可以直接作为数组首地址指针来用

以前学C++，发现C++最强大的地方就是指针了（这个不是我发现的。。。大牛都这么说，我只是小菜一个），写东西的时候总是用指针，而且C++的很多函数参数都是用的指针，特别是需要输出的参数，几乎都是用的指针传址，从而得到返回值，我发现很多API函数的指针类型参数都是[out]的说明。

用了那么就的指针，自己也算是小小的弄明白了，指针就是用来寻址的（大牛别扔西瓜啊。。。），编程里面难免会遇到类型强制转换，而指针用的强制转换特别多，而我个人认为指针类型的强制转换很大一个原因是需要对地址进行寻址，不同的指针类型只是说寻址的时候的步长不同而已，别的没什么区别。举个例子来说：
一个short的指针*ps和char的指针*pc，假设都指向地址1000，假设地址单位为字节，对于加一来说，ps+1就是说地址向后移动了一个字，也就是说加完之后指向1002，而对于pc+1来说，后移一个字节，结果便是1001了。而对于强制转换来说，只是改变寻址步长。
short *ps;
char *pc;
pc+1;//1001
ps+1;//1002
同样，上面的(char*)ps+1，得到的结果便是1001，而(short*)pc+1结果是1002。这个便是指针强制转换所带来的好处了。
short *ps;
char *pc;
(short*)pc+1;//1002
(char*)ps+1;//1001
最近在学Delphi，刚开始学那些组件，然后在delphi中用API函数，用到API函数的时候，通过函数声明，发现了不同点，C++的API说明中的指针参数很大一部分在Delphi中被换成了var的引用（万一大师说的这其实也是传址），然后就看了点Delphi指针的说明，说Delphi也有指针，自己也学习了下Delphi的指针，总结一下：
Delphi的指针本质上和C++没什么区别，都是地址，但是Delphi的指针的算数运算就没C++那么的灵活了（Delphi的指针更加严格），对于“+”加来说，只支持PChar和整数相加（这个是在Object Pascal里面看到的），也就是说对于“+”和“-”操作来说，步长是一个字节，同样加1的话例：
var
pshort:ShortInt;
psmall:SmallInt;
//同样假设初始指向1000，单位字节
begin
PChar(pshort)+1;//结果为1001
PChar(psmall)+1;//结果也1001
end;

要想实现C++一样的功能的话：
var
pshort:ShortInt;
psmall:SmallInt;
//同样假设初始指向1000，单位字节
begin
PChar(pshort)+1;//结果为1001
PChar(psmall)+sizeof(SmallInt)*1;//结果为1002，我这样写只是为了形象，PChar(psmall)+2;就OK了
end;
若想实现和C++一样的强制转换来改变指针步长的话，便得这么写：
var
pshort:ShortInt;
psmall:SmallInt;
//同样假设初始指向1000，单位字节
begin
PChar(pshort)+sizeof(SmallInt)*1;//结果为1002
PChar(psmall)+1;//结果也1001
end;

这个好像没什么特别，反正Delphi都是将步长转为字节来算数加减的，所以这种强制转换没意义。

不过Delphi提供的一个函数Inc能实现除了PChar类型指针的自加寻址，这个就是你的指针类型是什么类型，步长便是此指针类型的大小，例：
var
pi:Pinteger;
psmall:PSmallInt;
//同样假设初始地址1000，单位字节
begin
inc(pi);//1004
inc(psmall);//1002
inc(psmall, 2);//1006
end;
这些就是小弟作为一个菜鸟对指针的理解，当然这只是指针中的一小部分，要学的还很多，这个也只是写出来和菜鸟同志们互相交流，供大牛指点的。