关于类创建和释放的问题

请看：  
      if   YgXgFrm=nil   then  
          YgXgFrm:=TYgXgFrm.Create(self);  
      YgXgFrm.ShowModal;  
      YgXgFrm.Free;  
  这样写有错误码？系统报错。错误如下：  
  1。当我在主应用程序中打开时，可以运行，退出主应用程序，再进来后，还可以运行。  
  但是。。。  
  2。但是，当我在主应用程序中只关闭YgXgFrm，不退出主应用程序，点击菜单再进时，  
  报错：project   project1.exe   raised   exception   class   EAccessViolation   with  
  message'Access   violation   at   address   00000000.read   of   address   00000000'.process   stoped.use   step   or   run   to   continue.  
  3.看来是没有释放掉。请你给出答案。  
   
   
  还有一个小问题，怎没引用sndplaysound(ptrSound,snd_async   or   snd_Memory)函数  
  问题点数：20、回复次数：3Top

1 楼My_first（小@_@小）回复于 2002-11-28 18:13:30 得分 20

 
  if   YgXgFrm=nil   then  
  try  
          YgXgFrm:=TYgXgFrm.Create(self);  
          YgXgFrm.ShowModal;  
  finnaly  
  YgXgFrm.Free;  
  YgXgFrm:=nil;  
  end;  
   
  第二个问题在　uses加上　　shellapi  
  Top

2 楼Anajian（天行者）回复于 2002-11-28 20:29:12 得分 0

第二个问题不行，加上   SHELLAPI还是那句话，  
  UNDECLARED   IDENTIFIER   sndPlaySound;Top

3 楼My_first（小@_@小）回复于 2002-11-28 20:33:30 得分 0

uses   MMsystem;Top

相关问题

• 应用程序
• ygxgfrm
• 问题
• nil

• 帖主：Anajian
• My_first

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载