查看完整版本: 谈谈 Delphi 的类型与指针[1]

谈谈 Delphi 的类型与指针[1]

先声明: 不要把我说的这些个东西当作教科书, 这都是自己的浅见; 同时希望得到指正.

Delphi 的指针分为 "类型指针" 和 "无类型指针" 两类.
Delphi 中的类型, 常用的也得有几百个, 我们可以给每种类型定义相应的类型指针.
其实 Delphi 已经为很多类型预定义了指针, 譬如数据类型:
Integer 有对应的 PInteger;
Char 有对应的 PChar;
string 有对应的 PString;
再譬如:
TPoint 有对应的 PPoint;
TColor 有对应的 PColor 等等.

另外, 指针也可以有指针, 譬如: PChar 是字符指针, PPChar 又是 PChar 的指针(这都是 Delphi 预定义的).

根据上面的例子, 咱们先总结一下类型与指针的命名规则:
类型约定用 T 打头(Delphi 常规的数据类型除外, 譬如: String);
指针约定用 P 打头;
指针的指针约定用 PP 打头.
类型和指针是不可分的两个概念, 指针本身也是一种类型 - "指针类型".
先认识一下指针相关的操作符(@、^、Addr): [table][tr][td]@[/td][td]@变量[/td][td=1,2]获取变量指针[/td][/tr][tr][td]Addr[/td][td]Addr(变量)[/td][/tr][tr][td=1,3]^[/td][td]指针^[/td][td]获取指针指向的实际数据[/td][/tr][tr][td]var Pxxx: ^类型[/td][td]定义 Pxxx 某种类型的指针的变量 [/td][/tr][tr][td]type Pxxx = ^类型 [/td][td]定义 Pxxx 为某种类型的指针[/td][/tr][/table]
[b][color=#000080]unit[/color][/b] Unit1;

[b][color=#000080]interface[/color][/b]

[b][color=#000080]uses[/color][/b]
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

[b][color=#000080]type[/color][/b]
  TForm1 = [b][color=#000080]class[/color][/b](TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    [b][color=#000080]procedure[/color][/b] Button1Click(Sender: TObject);
    [b][color=#000080]procedure[/color][/b] Button2Click(Sender: TObject);
    [b][color=#000080]procedure[/color][/b] Button3Click(Sender: TObject);
    [b][color=#000080]procedure[/color][/b] Button4Click(Sender: TObject);
  [b][color=#000080]end[/color][/b];

[b][color=#000080]var[/color][/b]
  Form1: TForm1;

[b][color=#000080]implementation[/color][/b]

[color=#008284]{$R *.dfm}[/color]

[color=#008000]//Integer 与 PInteger
[/color][b][color=#000080]procedure[/color][/b] TForm1[color=#0000ff].[/color]Button1Click(Sender: TObject);
[b][color=#000080]var[/color][/b]
  int: Integer;
  pint: PInteger; [color=#008000]{定义类型指针, Integer 类型的指针}[/color]
[b][color=#000080]begin[/color][/b]
  int := [color=#0000ff]100[/color];
  pint := @int;        [color=#008000]{现在 pint 就是 int 的指针}[/color]
  pint^ := pint^ + [color=#0000ff]1[/color];  [color=#008000]{现在 pint^ 和 int 是一回事, 测试一下:}[/color]
  ShowMessage(IntToStr(int));   [color=#008000]{101}[/color]
  ShowMessage(IntToStr(pint^)); [color=#008000]{101}[/color]
[b][color=#000080]end[/color][/b];

[color=#008000]//直接定义类型指针
[/color][b][color=#000080]procedure[/color][/b] TForm1[color=#0000ff].[/color]Button2Click(Sender: TObject);
[b][color=#000080]var[/color][/b]
  int: Integer;
  PMyInt: ^Integer;
[b][color=#000080]begin[/color][/b]
  int := [color=#0000ff]100[/color];
  PMyInt := Addr(int); [color=#008000]{这句和: PMyInt := @int; 相同}[/color]
  PMyInt^ := PMyInt^ + [color=#0000ff]1[/color];
  ShowMessage(IntToStr(int));     [color=#008000]{101}[/color]
  ShowMessage(IntToStr(PMyInt^)); [color=#008000]{101}[/color]
[b][color=#000080]end[/color][/b];

[color=#008000]//先自定义指针类型
[/color][b][color=#000080]procedure[/color][/b] TForm1[color=#0000ff].[/color]Button3Click(Sender: TObject);
[b][color=#000080]type[/color][/b]
  PInt = ^Integer;
[b][color=#000080]var[/color][/b]
  int: Integer;
  PMyInt: PInt;
[b][color=#000080]begin[/color][/b]
  int := [color=#0000ff]100[/color];
  PMyInt := @int;
  PMyInt^ := PMyInt^ + [color=#0000ff]1[/color];
  ShowMessage(IntToStr(int));     [color=#008000]{101}[/color]
  ShowMessage(IntToStr(PMyInt^)); [color=#008000]{101}[/color]
[b][color=#000080]end[/color][/b];

[color=#008000]//指针的指针
[/color][b][color=#000080]procedure[/color][/b] TForm1[color=#0000ff].[/color]Button4Click(Sender: TObject);
[b][color=#000080]var[/color][/b]
  int: Integer;
  pint: PInteger;
  ppint: ^PInteger;
[b][color=#000080]begin[/color][/b]
  int := [color=#0000ff]100[/color];
  pint := @int;
  ppint := @pint;
  ppint^^ := ppint^^ + [color=#0000ff]1[/color];
  ShowMessage(IntToStr(int));     [color=#008000]{101}[/color]
  ShowMessage(IntToStr(pint^));   [color=#008000]{101}[/color]
  ShowMessage(IntToStr(ppint^^)); [color=#008000]{101}[/color]
[b][color=#000080]end[/color][/b];