先看一个指针用法的例子：
var          X,   Y:   Integer;       //   X   and   Y   整数类型          P:   ^Integer;           //   P   指向整数类型的指针 begin          X   :=   17;               //   给   X   赋值          P   :=   @X;              //   把   x的地址赋给p          Y   :=   P^;              //   取出p所指向的数值赋给y end;
第二行定义了两个变量X,y.   第三行声明了p是指向整数类型的指针;意味着p能够指向x或者y的地址.第五行赋给x值,第六行把x的地址赋给p.最后通过p指向的变量赋值给y.此时,x和y有相同的值.

操作符@用来取出变量的地址,也可以取出过程和函数的地址.而符号^有两个目标,当它出现在类型定义的前面时如 ^typename 表示指向这种类型的指针;当它出现在指针变量后边时   如 point^ 返回指针指向的变量的值;

理解指针比较容易理解面向对象的pascal语言,因为指针经常在幕后操作.任何要求动态分配大的内存空间的类型可以用指针类型.例如,long-string变量,实际在使用指针进行操作.另外一些高级的编程技术需要使用指针类型.有时指针是适应object   pascal严格的类型限制的唯一方法.同过一个通用的指针类型,通过类型转换成不同的指针类型,如下面的例子:

    某程序员对书法十分感兴趣，退休后决定在这方面有所建树。于是花重金购买了上等的文房四宝。一日，饭后突生雅兴，一番磨墨拟纸，并点上了上好的檀香，颇有王羲之风范，又具颜真卿气势，定神片刻，泼墨挥毫，郑重地写下一行字：

Hello world！

    最近学校正在上一卡通项目，中标单位是广东智慧电子的智慧一卡通信息管理系统，由于要和原有的各种应用系统进行无缝对接，故必须针对一卡通进行接口进行二次开发。
    因为原有的很多应用系统是用Delphi开发的，因此，为了方便开发我把一卡通的VC++接口封装为Delphi的模式。在封装的过程中有几个细节需要特别注意：
    1.接口函数必须采用stdcall调用模式；
    2.必须把C++中的char *类型转换为pchar；
    3.int &转换为pointer类型，在调用时先定义一个Integer类型的变量如iMoney，用@iMoney取得返回的整型数值；
    4.返回值很多都是定长的字符串数据，应注意删除不必要的前后空格。
unit u999CardIntf; //三九智慧一卡通接口的Delphi封装  by xieyunc 2010.5.27 interface //1）  打开串口 function IniCom(ComPort,BaudRate:Integer):Integer;stdcall;         external 'SmartCom411SFJ.dll' name 'IniCom'; //2）  关闭串口 function CloseCom(ComPort:Integer):Integer;stdcall;         external 'SmartCom411SFJ.dll' name 'CloseCom'; //3）  读取个人基本信息 function ReadPersonalInfo(ComPort:Integer;Name,buffer:PChar):Integer;stdcall;         external 'SmartCom411SFJ.dll' name 'ReadPersonalInfo'; //4）  读取卡基本信息 function ReadCardInfo(ComPort:Integer;CarNum,CarNum1,CardID:PChar;                       CardType:Pointer;ExpireDay:PChar):Integer;stdcall;         external 'SmartCom411SFJ.dll' name 'ReadCardInfo'; //5）  读电子钱包信息 function ReadCard(ComPort:Integer;CarNum,CarNum1,Password,CardID,Name:PChar;                   Money:Pointer):Integer;stdcall;         external 'SmartCom411SFJ.dll' name 'ReadCard'; //6）  读电子钱包信息并声音提示刷卡 function ReadCardBeep(ComPort:Integer;CarNum,CarNum1,Password,CardID,Name:PChar;                       Money:Pointer):Integer;stdcall;         external 'SmartCom411SFJ.dll' name 'ReadCardBeep'; //7）  扣卡金额 function DecCard (ComPort:Integer;CardNum:PChar;DecMoney:Pointer):Integer;stdcall;         external 'SmartCom411SFJ.dll' name 'DecCard'; //8）  显示字符串 function Display(ComPort:Integer;XSbuffer:PChar;DelayTime:Integer):Integer;stdcall;         external 'SmartCom411SFJ.dll' name 'Display'; //9）  用户显示金额 function DisplayMoney(ComPort:Integer;Money:Pointer):Integer;stdcall;         external 'SmartCom411SFJ.dll' name 'DisplayMoney'; //10）  读用户自定义信息(如借书证号) function ReadLiberyNum(ComPort:Integer;ThirdInfo:PChar):Integer;stdcall;         external 'SmartCom411SFJ.dll' name 'ReadLiberyNum'; implementation end.

自已在制作网页时经常会觉得有些站点的配色非常好，想用之！但不知其颜色值，查看源文件往往是引入外部CSS，要一个一个找很麻烦。于是就有了这个小工具----鼠标取色器！

Exe及源文件下载：

国家地震局专家再一次严正公告：

/来自中华网社区 club.china.com/ ------> http://club.china.com/data/thread/1011/2711/79/23/6_1.html

    1. 今晚到明天，或者今后15年，不震就不震，震了就震了，震多少级震后才知道，震多少次，震后会告诉大家，请大家放心，害怕的就出去睡，不害怕的就在家睡，并保持正常生活秩序，不要没事瞎TM传谣言，搞的我们也好恐怖。

    2. 尽快把多余的房子卖掉。地震来了才知道，不动产原来也会动的，而且动起来要人命。

    3. 学习点常识，初一睡家里十五睡帐篷，因为躲得过初一躲不过十五；可以出家当和尚，但别睡庙里，因为跑得了和尚跑不了庙。

    4. 原来:一杯茶,一包烟,开启QQ聊一天；现在:不泡茶,不抽烟,立个瓶瓶盯一天，早上摇一摇，精神百倍；晚上摇一摇，通宵不睡。

    5. 专家叫蛤蟆不叫，一丝不挂安心觉； 蛤蟆叫专家不叫，务必全副武装预备逃跑。

    6. 据说大地震前有三个明显征兆： 1.井水异常； 2.牲畜反应异常； 3.专家出来辟谣。

    7. 专家说：我们不知道什么时候发生地震，但知道什么时候不发生地震。