初始化的主要代码:
procedure Tf_main.FormCreate(Sender: TObject);
var
strResult: array[0..255] of Char;
dirstr:string;
pfilename:pchar;
begin
dirstr:=getcurrentdir();
dirstr:=dirstr+'\scdb.ini';
pfilename:=PChar(dirstr);
GetPrivateProfileString('DataBase','ConnectionString','error',strResult,255, pfilename);
if (strResult<>'error')
then
begin
ADOCon.ConnectionString:=strResult;
ADOCon.Open;
end
else
begin
showmessage('连接数据库出错,请检查数据库配置文件:scdb.ini是否正确!');
Application.Terminate;
end
end;