不太难的问题 ( 积分: 100 )

我可不可以不要工程文件里的如下两行代码？为什么？
Application.Initialize;
Application.Run;

我可不可以不要工程文件里的如下两行代码？为什么？
Application.Initialize;
Application.Run;

不行

1、呵呵，你可以试试嘛
2、看看Delphi的帮助

看你要做什么程序了，
如果你的工程中有窗体的话，没有Application.Run;这句你的程序就运行不起来，
而没有Application.Initialize;这句话，你的程序中就可能无法对数据库进行操作，或者其他相关操作无法运行

要是象我这样的程序也能运行起来，那就什么也不需要了
program Project2;

uses
Forms,
Dialogs,
Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
showmessage('原来你什么都不想要！');
end.

1. 不可以
2. 第一句代码是应用程序必要的初始化
第二句代码是执行应用程序进入消息循环

Application.Initialize;是Delphi的初始化语句。
Application.Run;是程充运行的执行语句。
少不了的。呵呵！！

我这样做不要那两行程序也可以运行,但不知有什么后果.
////////////////////////////////////////////////////////////////
program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2},
Unit3 in 'Unit3.pas';

{$R *.res}

begin
// Application.Initialize;
if LoadOk then Form1Create
//LoadOk来自Unit2,Form1Create来自Unit1.
// Application.Run;
end.
////////////////////////////////////////////////////////////////
unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm2 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
function LoadOk : boolean;
var
Form2: TForm2;

implementation

{$R *.dfm}
function LoadOk;
begin
with TForm2.Create(nil) do
begin
result := ShowModal=mrok;
free;
end;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
if (edit1.Text = '1') and (edit2.Text = '1') then
begin
ModalResult:=mrok;
end
else
begin
application.MessageBox(pchar('密码不对,请重新输入.'),pchar(application.Title),MB_OK+MB_ICONWARNING);
ModalResult:=mrnone;
end;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
ModalResult:=mrcancel;
end;

end.
/////////////////////////////////////////////////////////////////
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
procedure Form1Create;
var
Form1: TForm1;

implementation

{$R *.dfm}
procedure Form1Create;
begin
with TForm1.Create(nil) do
begin
ShowModal;
free;
end;
end;
end.
///////////////////////////////////////////////////////////////////////

多人接受答案了。