Delphi指针大全PDF资源-CSDN文库

共1个文件

pdf：1个

Delphi

PDF

需积分: 10 78 浏览量 2011-01-06 10:09:20 上传评论收藏 45KB RAR 举报

资源推荐

资源详情

资源评论

收起资源包目录

Delphi指针大全.rar （1个子文件）

Delphi指针大全.pdf 56KB

Delphi 指针大全

- 1 -

1 DELPHI 的指针-引用.................................................................................- 1 -

2 delphi 的“引用/值”模型..............................................................................- 5 -

3 谈谈 Delphi 的类型与指针....................................................................- 13 -

4 Delphi 7 指针数据类型............................................................................- 17 -

5 delphi 中的 Pchar 指针 .............................................................................- 19 -

1 DELPHI 的指针-引用

大家都认为，C 语言之所以强大，以及其自由性，很大部分体现在其灵活的指针运用上。因

此，说指针是 C 语言的灵魂，一点都不为过。同时，这种说法也让很多人产生误解，似乎

只有 C 语言的指针才能算指针。Basic 不支持指针，在此不论。其实，Pascal 语言本身也

是支持指针的。从最初的 Pascal 发展至今的 Object Pascal，可以说在指针运用上，丝毫不

会逊色于 C 语言的指针。

以下内容分为八个部分，分别是

一、类型指针的定义

二、无类型指针的定义

三、指针的解除引用

四、取地址（指针赋值）

五、指针运算

六、动态内存分配

七、字符数组的运算

八、函数指针

一、类型指针的定义。对于指向特定类型的指针，在 C 中是这样定义的：

int *ptr;

char *ptr;

与之等价的 Object Pascal 是如何定义的呢？

var

ptr : ^Integer;

ptr : ^char;

其实也就是符号的差别而已。

Delphi 指针大全

- 2 -

二、无类型指针的定义。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;

Delphi 指针大全

- 3 -

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");

Delphi 指针大全

- 4 -

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 中，数组的名称可以直接作为数组首地址指针来用

//但 Pascal 不是这样的，因此 str 前要加上取地址的运算符

StrCat(@str, ’_testok’);

GetMem(pstr, sizeof(char) * 15);

StrCopy(pstr, @str);

Write(pstr);

FreeMem(pstr);

end;

八、函数指针。在动态调用 DLL 中的函数时，就会用到函数指针。假设用 C 写的一段代码

如下：

typedef int (*PVFN)(int); //定义函数指针类型

int main()

{

HMODULE hModule = LoadLibrary("test.dll");

PVFN pvfn = NULL;

pvfn = (PVFN) GetProcAddress(hModule, "Function1");

pvfn(2);

FreeLibrary(hModule);

}

就我个人感觉来说，C 语言中定义函数指针类型的 typedef 代码的语法有些晦涩，而同样的

代码在 Object Pascal 中却非常易懂：

type PVFN = Function (para : Integer) : Integer;

Delphi 指针大全

- 5 -

var

fn : PVFN;

//也可以直接在此处定义，如：fn : function (para:Integer):Integer;

hm : HMODULE;

begin

hm := LoadLibrary(’test.dll’);

fn := GetProcAddress(hm, ’Function1’);

fn(2);

FreeLibrary(hm);

end;

附：

Delphi 中指针功能非常强大，所有 c 中能实现的指针 Delphi 中都能实现. 上面认为 Delphi

指针不是强项的只是一种误解(或者对指针的机制一知半解).

由于 Pascal 语言的限制, 用 Delphi 的指针时很多情况下需要强制类型转换. Delphi 中提供

了很多指针类型, 而且非常方便的是你可以自定义自己的指针类型.

一个经验: 要掌握一种数据类型并且能够灵活应用,一个比较好的办法是别考虑什么类型是

什么名字, 而只需要考虑这种类型的变量将占用多少字节. 凡是字节数相同的类型都可以

认为是同一类型 :-), 提供不同类型只是为了编译器能够更方便的查找错误而已. 比如:

Integer, Pointer, PChar, TSmallPoint 甚至 array [0..4] of Char

你都可以把他们当成是同一类型加以使用(有了这种思路, 可以实现很大的程序灵活性和代

码高效性). 所以我很不理解的是 JAVA 中不支持指针(因此我也认为用 JAVA 绝对不可能写

出很高效的程序, 而且会有很多 C/C++/DELPHI 中用一句话可以完成的工作在 JAVA 中需

要用一个复杂过程, 消耗很多额外内存才能达到相同目的). 就事论事, 根据你的问题在

Delphi 中和 C 中的解决方案没什么两样.

http://hi.baidu.com/sswanglei/blog/item/3b55d88bcab41d14c8fc7a94.html

2 delphi 的“引用/值”模型

D 中简单的数据类型（如 integer,char，record 等）无论作为参数还是变量都是按值传递和

使用的，通常称为值类型。值类型也是直接类型，即每个变量都有自己的存储数据的实际的

评论收藏

内容反馈

fairyhoodwater

粉丝: 5
资源: 7

Delphi指针大全PDF

Delphi指针大全

delphi指针大全.pdf

Delphi函数参考大全.pdf

Delphi函数指针[借鉴].pdf

Delphi函数参考大全

C程序设计语言(第2版)

java源码包---java 源码 大量 实例

java源码包2

java源码包3

java源码包4

成百上千个Java 源码DEMO 4(1-4是独立压缩包)

成百上千个Java 源码DEMO 3(1-4是独立压缩包)

JAVA上百实例源码以及开源项目源代码

JAVA上百实例源码以及开源项目

21天学习SQL V1.0

STM32循迹小车（灰度+OpenMV权重判断）

谭浩强C语言程序设计第五版详细答案

51单片机16*16点阵，源代码+仿真实现

c语言贪吃蛇-项目实战

MQTT协议设备客户端与图传APP.zip

Keil.STM32H7xx-DFP.3.1.1.pack

基于stm32f407的示波器+FFT频谱分析

C语言求一个正整数的位数

zlib-1.2.13.tar.gz

猴子吃桃问题c语言.猴子吃桃问题c语言

STM32CubeIDE 1.14.0 自动补全代码

基于STM32的FFT频谱分析+波形识别

ORIGIN消除demo字样，适用ORIGIN2018版本

最新资源

java源码包---java 源码大量实例