指针

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);vari,j:integer;p:^integer;begini:=5;p:=@i;if not(i>=7)thenshowmessage(inttostr(p^))elseshowmessage('不会显示这条消息');end;end.