我真晕,简直不会做程序了,奇怪了。(0)

  • 主题发起人 主题发起人 zyt_1978
  • 开始时间 开始时间
Z

zyt_1978

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TFrmZtlbsdjg.btn3Click(Sender: TObject);begin ShowMessage(FrmZtlbsdjg.qryMaster.fieldbyname('桌台类别').AsString);end;自己的窗体前面加个自己名字就出错,去掉FrmZtlbsdjg. 就没有问题,真怪了我是想别的窗体,前面加个FrmZtlbsdjg,修改这个窗体的记录内容,不知道怎么回事前面加FrmZtlbsdjg就出错。
 
with TFrmZtlbsdjg.Create(nil) do begin ShowModal; Free; end;我发现这个窗体是动态创建的就不行,做了那么多年程序头一次碰到。
 
研究了一下,看样子是动态创建的没有名字,给个名字就行了FrmZtlbsdjg:=TFrmZtlbsdjg.Create(nil); with FrmZtlbsdjg do begin ShowModal; Free; end;这样就好了。
 
测试通过procedure TForm1.Button1Click(Sender: TObject);begin with TForm2.Create(nil) do begin ShowModal; Free; end;end;
 
FrmZtlbsdjg 可能没有实例,就是对象可能是nil
 
基本错误啦with TFrmZtlbsdjg.Create(nil) do begin ShowModal; Free; end;procedure TFrmZtlbsdjg.btn3Click(Sender: TObject);begin ShowMessage(FrmZtlbsdjg.qryMaster.fieldbyname('桌台类别').AsString);end;如果是这样的代码,FrmZtlbsdjg虽然有定义,但是没创建,因为你动态创建后以后没有赋值给FrmZtlbsdjg,这个时候它指向是空,当然出错
 
晕,什么对象,什么对象实例化,也分不清FrmZtlbsdjg没有实例化,如何使用?都是delphi的太好用惹的祸,哦,delphi的架构师搞得delphi程序员的工资这么低,真的不对
 
[:)] 那么多年程序员啊...delphi
 
那是楼主自封的。
 
with TFrmZtlbsdjg.Create(nil) do改用with TFrmZtlbsdjg.Create(application) do 试试,
 
FrmZtlbsdjg:=TFrmZtlbsdjg.Create(nil); with FrmZtlbsdjg do begin ShowModal; Free; end;
 
with TFrmZtlbsdjg.Create(nil) do begin ShowModal; Free; end;我发现这个窗体是动态创建的就不行,做了那么多年程序头一次碰到。---------------------楼主别见怪,我只想说“你太搞笑了”
 
不值得发贴
 
后退
顶部