谈谈 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):
@@变量获取变量指针AddrAddr(变量)^指针^获取指针指向的实际数据var Pxxx: ^类型定义 Pxxx 某种类型的指针的变量 type Pxxx = ^类型 定义 Pxxx 为某种类型的指针
举例说明:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 =
class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
//Integer 与 PInteger
procedure TForm1
.Button1Click(Sender: TObject);
var
int: Integer;
pint: PInteger;
{定义类型指针, Integer 类型的指针}
begin
int :=
100;
pint := @int;
{现在 pint 就是 int 的指针}
pint^ := pint^ +
1;
{现在 pint^ 和 int 是一回事, 测试一下:}
ShowMessage(IntToStr(int));
{101}
ShowMessage(IntToStr(pint^));
{101}
end;
//直接定义类型指针
procedure TForm1
.Button2Click(Sender: TObject);
var
int: Integer;
PMyInt: ^Integer;
begin
int :=
100;
PMyInt := Addr(int);
{这句和: PMyInt := @int; 相同}
PMyInt^ := PMyInt^ +
1;
ShowMessage(IntToStr(int));
{101}
ShowMessage(IntToStr(PMyInt^));
{101}
end;
//先自定义指针类型
procedure TForm1
.Button3Click(Sender: TObject);
type
PInt = ^Integer;
var
int: Integer;
PMyInt: PInt;
begin
int :=
100;
PMyInt := @int;
PMyInt^ := PMyInt^ +
1;
ShowMessage(IntToStr(int));
{101}
ShowMessage(IntToStr(PMyInt^));
{101}
end;
//指针的指针
procedure TForm1
.Button4Click(Sender: TObject);
var
int: Integer;
pint: PInteger;
ppint: ^PInteger;
begin
int :=
100;
pint := @int;
ppint := @pint;
ppint^^ := ppint^^ +
1;
ShowMessage(IntToStr(int));
{101}
ShowMessage(IntToStr(pint^));
{101}
ShowMessage(IntToStr(ppint^^));
{101}
end;
end.
知道以上这些就可以操作了, 就可以看懂别人的代码了; 不过要想彻底明白指针到底是怎么回事, 需要从内存谈起.
