指向类的指针 和 类的实例(100分)

无

无才

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-24

• #1

pEdit=^TEdit;

Edit1 : TEdit;

这两者有什么区别吗?
var Ap : PEdit;
procedure Tform1.FormCreate(Sender : TObject);
begin
New(Ap);
Ap^ := Edit1
// 这里运行时会出现错误 如何在这里让PEDIT 和 EDIT1联系起来?
end;
procedure Tform1.destory;
begin
// 如果上面过程的赋值完成的话
Ap := nil
//这里需要做这步吗?
end;

 

S

savenight

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-24

• #2

》》Ap^ := Edit1
// 这里运行时会出现错误 如何在这里让PEDIT 和 EDIT1联系起来?
我的机子上没有错。
》》Ap := nil
//这里需要做这步吗?
需要，不过这里应该用dispose(ap);

 

B

BlackDragon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-24

• #3

你出错信息是什么?

 

D

delphifans_hx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-24

• #4

在汇编级别上 对象名本身是指针
而且类是构造在堆(Heap)上且只能在堆上
所以Edit1本身是指向堆上的(Edit)的实例；
|
|——> TEdit;
所以pEdit 是指向指针的指针 是没必要的

 

S

snail_kbb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-24

• #5

非要用这个吗?
用Edit1 := TEdit.Create;和Edit1.free;
不行吗？

 

Y

yinxianglong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-24

• #6

错了不是
DELPHI 中 对象类形变量,本身就是指向类实例的指针
你New 了一个指针
这时P 指向 Nil 即 $FFFF 你再向P^的地址赋值当然就出错了

 

S

savenight

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-24

• #7

没错地。
type
Edit1: TEdit;
end;
pEdit=^TEdit;
var
Form1: TForm1;
Ap : PEdit;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
New(Ap);
Ap^ := Edit1;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
Dispose(ap);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Ap^.Text :='savenight say hello to u!';
end;