procedure TDM.SetupDBConnectionString(ServerName, DBName, UserID, DBPwd: string);
var
IniFile : TIniFile;
begin
IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+
//51
'Config.ini');
try
//53
IniFile.WriteString('ConnString', 'ServerName', ServerName);
IniFile.WriteString('ConnString', 'DBName', DBName);
IniFile.WriteString('ConnString', 'UserID', UserID);
IniFile.WriteString('ConnString', 'DBPwd', DBPwd);
finally
IniFile.Free;
end; //64
end;
//65
运行时出现以下问题:
[Error] DM_Unit.pas(51): Undeclared identifier: 'Application'
[Error] DM_Unit.pas(51): ')' expected but identifier 'ExeName' found
[Error] DM_Unit.pas(53): ';' expected but 'TRY' found
[Error] DM_Unit.pas(64): '.' expected but ';' found
[Warning] DM_Unit.pas(65): Text after final 'END.' - ignored by compiler
新人较多不懂非常渴望您的帮助 为什么会说Application是 Undeclared 呢? 难道说DM的UNIT中USE部分要申明什么么
还有其他几个错误是怎么回事啊
|