关于中止程序的问题???(200分)

D

dylb

Unregistered / Unconfirmed
GUEST, unregistred user!
各位大虾:
我用application.terminate中止应用程序时Win98老是会出现非法操作提示框,请各位
指点一下,不胜感激!源代码如下:

program fuyangSystem;

uses
Forms,
controls,
MainUnit in 'MainUnit.pas' {MainForm},
fygldmodUnit in 'fygldmodUnit.pas' {fyglDMod: TDataModule},
loginUnit in 'loginUnit.pas' {loginForm},
gyUnit in 'gyUnit.pas' {gyForm},
xgmmUnit in 'xgmmUnit.pas' {xgmmForm};

{$R *.res}
var
loginform:tloginform;

begin
Application.Initialize;
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TfyglDMod, fyglDMod);
loginform:=tloginform.Create(application);
if loginform.ShowModal=mrcancel then
Application.Terminate;
else
application.Run;
end.
 
这样呢?
Application.Initialize;
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TfyglDMod, fyglDMod);
loginform:=tloginform.Create(application);
if loginform.ShowModal=mrcancel then
begin
MainForm.Free;
fyglDMod.Free;
loginform.Free;
Application.Terminate;
end
else
application.Run;
end.
 
你太伟大了!!!!!!!!!!!!!!!!!
送分了!!!!!!!!!!!!!!!!!
 
最好使用Terminate,不建议使用Halt,因为我以前也遇到过使用Halt后出现程序执行非法操作
的情况,后来改成Terminate就好了。
 
呓?成了吗?这么快就给分了??????[:)]
 
顶部