主题:紧急贴,在线等
procedure Tfrm_dm.DataModuleCreate(Sender: TObject);
var ini,iniW:tinifile;
state:boolean;
Cstring:ansistring;
str,str1:ansistring;
begin
ini:=tinifile.Create(changefileext(application.exename,'.ini'));////
state:=ini.readbool('database','connection',false);
if not state then
try
f_config:=tf_config.create(application);/////
f_config.showmodal;
这里的application 都不能被识别,请问我应该在uses 里面加什么呢?
var ini,iniW:tinifile;
state:boolean;
Cstring:ansistring;
str,str1:ansistring;
begin
ini:=tinifile.Create(changefileext(application.exename,'.ini'));////
state:=ini.readbool('database','connection',false);
if not state then
try
f_config:=tf_config.create(application);/////
f_config.showmodal;
这里的application 都不能被识别,请问我应该在uses 里面加什么呢?