dbExpress访问IB，在线等待，急急

[sunswim]

我用dbExpress访问IB,
form2.showmodel第一次，没问题
当我form2.close;
然后再一次form2.showmodel，
提示Einvalid pointer with message"Invalid Pointer operation"
请高手指教

[leon2k]

问题没有提到本质上。

[sunswim]

问一下Invalid Pointer operation出错的原因

[erickleung]

请叁看Delphi语法

MyFm : TForm2.Create(self)

Try
BaBaBa....

MyFM.Showmodal;
Finally
MyFM.free;
end;

当Form2.close时, 仍是保留先前Form2 的指针, 一定运作之後便出错.

[erickleung]

上面有误:
Var MyFm : TForm2;

...
Begin
MyFm := TForm2.create(self);
...

Try
....
MyFm.Showmodal;
....
Finally
FreeAndNil(MyFm);
end;

...
end;

FreeAndNil比 Free更安全, 因为他还会把有关指针设为nil.

除非你的程式不是有许多表, 不然就不要一开始便把表都开始. 只在需要才开始, 用完之後即时关闭.

[sunswim]

Var MyFm : TForm2;请问这句放在哪里，因为FORM2是在另一个单元里

...
Begin
MyFm := TForm2.create(self);
...

Try
....
MyFm.Showmodal;
....
Finally
FreeAndNil(MyFm);　　怎样在form2里调用这句
end;

...
end;