关于DELPHI的指针

原创 2004年06月27日 14:00:00
因为delphi的数据类型使用很方便,我一直以来都没有使用过指针,但最近的一个软件需要使用到链表,所以不得不学习delphi的指针。不用不知道,到用的时候才发现凡是介绍delphi的书籍都回避了指针的问题,好不容易在网上找到一篇《浅谈Object Pascal的指针》。虽然文章那delphi的指针和c/c++的进行了对比学习,但实用例子实在太少了,所以我在写完程序后,把一些使用过程里的感想写下。

       现在假设我们的链表存储的只是一个变量 i,那么在c/c++里的结构体定义如下:

struct Ttest

{

       int i;

       struct Ttest * next;

};

       我仿照c的定义方式写了一个结构体

type Ttest = record

       i: integer;

       next: ^Ttest;

end;

       试编译了一次,出错在 next: ^Ttest;  上(类型未定义),看来在delphi严格语法下,结构体里不能出现自己的结构体指针,这就让我有些为难了,看来只有想办法对他进行迂回作战。经过再次研究《浅谈Object Pascal的指针》发现有一种无类型指针Pointer可以使用,便把^Ttest替换为Pointer。编译通过了。既然next指针是作为无类型的指针,那在使用时就必须先把这个指针赋值给一个有类型指针后才能对指针所指向的结构体变量进行控制。

       有了结构体,接下来,我设计了一个用链表实现的队列的类TQueue。(这里给出的类是简化了的)

Type

    TQueue = class

    private<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

           First, last: ^Ttest

    Public

           Procedure add(s: integer);

    End;

 

 

Procedure TQueue.add(s: integer)

Var

    P: ^Ttest;

Begin

    Getmam(P, sizeof(Ttest));

    p.i := i;

    p.next := nil;

    last.next := p;

    last := p;

End;

       Add()是往队列里添加一个数据,它先用getman函数获得一块内存,然后变量赋值,在把新分配的变量挂入链表的末端。看起来很简单,实际写起代码也很简单,不过编译器就是不给你通过。在 last := p 这里提示变量类型不一致。我又重新检查了一遍代码,并为发现又什么问题,都是定义为^Ttext的指针,为什么就是不行!对着屏幕发呆了一会,决定进行迂回作战,这次把first,last都定义为无类型指针Pointer,再次编译通过了。不过需要对add()进行一些相应的改动,添加了一个临时结构体变量t

Procedure TQueue.add(s: integer)

Var

    t, P: ^Ttest;

Begin

    Getmam(P, sizeof(Ttest));

    p.i := i;

    p.next := nil;

    t := last;

    t.next := p;

    last := p;

End;

 

       写完程序后,看到一篇文章说Pchar的准确定义是^char,想想,在我这里是否也能这样定义,这样就不会出现类型不一致的问题。我试着在Ttest的定义后添加一句  Ptest = ^Ttest;  并且把first,lastadd()里的p都定义为Ptest,这次不需要使用临时变量t就能编译通过。看来delphi的编译还是无法识别在不同两个地方用 ^方式定义的指针,写程序时如果需要经常使用到指针,最好把它独立出来重新定义一下。

Delphi:记录类型、过程指针、函数(方法)指针字段的应用

由于工作关系使用delphi已经有一年时间,
  • jakrq
  • jakrq
  • 2014年10月14日 14:54
  • 944

delphi中的对象其实也是一种指针

 谈谈Delphi中的类和对象1.登不了大雅之堂地理解几个概念   说到类和对象,我们不能不提及这样几个概念:类,对象,实例。就我个人觉得可以这样来理解:对象指的是泛称,自然界的任何实体都可以看成一个...
  • jian704
  • jian704
  • 2007年10月10日 13:14
  • 1719

delphi中实现指针偏移?

请问在delphi中如何实现指针偏移?     如下例(VC++):     BYTE   *lpData;     lpData=lpdata+40;         答:     lpData: ...
  • yewenlin
  • yewenlin
  • 2009年07月06日 20:48
  • 2412

delphi 中的函数指针 回调函数

delphi 中的函数指针 回调函数
  • rznice
  • rznice
  • 2015年01月27日 08:49
  • 2650

关于DELPHI中的类对象以及类指针简单探讨总结。

      最近用DELPHI写程序,发现了DELPHI类对象引用时,有个需要特别注意的地方,故总结如下,与大家分享。有讲的不对的地方,还请不吝斧正。              首先:我们定义一个类,...
  • wbcp2000
  • wbcp2000
  • 2006年11月15日 15:30
  • 2287

delphi 指针的内存分配和释放

给字符指针(PChar、PWideChar、PAnsiChar)分配内存, 最佳选择是: StrAlloc. StrAlloc 虽然最终也是调用了 GetMem, 但 StrAlloc 会在指针前面...
  • kunlun122
  • kunlun122
  • 2013年10月31日 14:53
  • 1218

Delphi 字符指针分配内存

Delphi 字符指针分配内存
  • rznice
  • rznice
  • 2016年06月12日 13:24
  • 651

delphi中的字符串,字符串数据,字符串指针的转换以及不同字符串格式的转换

delphi中不同字符串格式的转换delphi中的编码默认的应该是unicode编码,delphi中的字符串类型有 UnicodeString,AnsiSting,String,UTF8String...
  • singular2611
  • singular2611
  • 2015年03月20日 11:00
  • 733

delphi中使用指针优化程序性能

    大多数情况下,dephi高效的编译器能使代码优化,以达到最有效率。但是,大家都知道,决定程序效率的是算法,不论编程语言多好, 计算机性能多高,如果没有合理的算法。随便写出来的程序也是难以胜任复...
  • ljq900
  • ljq900
  • 2006年09月07日 19:51
  • 926

delphi中函数指针的用法

       delphi中可以通过函数指针把一个函数作为参数来传递,然后在另外一个函数中调用。    1) 首先,申明函数指针类型TFunctionParameter。       type    ...
  • formiss
  • formiss
  • 2007年05月10日 17:29
  • 1242
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:关于DELPHI的指针
举报原因:
原因补充:

(最多只允许输入30个字)