沈
沈前卫
Unregistered / Unconfirmed
GUEST, unregistred user!
program Project1
uses
Forms,
Unit1 in '../Unit1.pas' {Form1}
{$R *.RES}
const
AppTitle1='TestAppTitle'
AppTitle2:string='TestAppTitle'
var
AppTitle3:string='TestAppTitle'
begin
Application.Initialize
Application.Title:='TestAppTitle'
// Application.Title:=AppTitle1
// <---- 1
// Application.Title:=AppTitle2
// <---- 2
// Application.Title:=AppTitle3
// <---- 3
Application.CreateForm(TForm1, Form1)
Application.Run
end.
如果你将1,2,3句任意一句去掉注释,程序将不能保存,运行! Bug???
(Based on WINNT4.0+SP4+Delphi5+Pack1)
uses
Forms,
Unit1 in '../Unit1.pas' {Form1}
{$R *.RES}
const
AppTitle1='TestAppTitle'
AppTitle2:string='TestAppTitle'
var
AppTitle3:string='TestAppTitle'
begin
Application.Initialize
Application.Title:='TestAppTitle'
// Application.Title:=AppTitle1
// <---- 1
// Application.Title:=AppTitle2
// <---- 2
// Application.Title:=AppTitle3
// <---- 3
Application.CreateForm(TForm1, Form1)
Application.Run
end.
如果你将1,2,3句任意一句去掉注释,程序将不能保存,运行! Bug???
(Based on WINNT4.0+SP4+Delphi5+Pack1)