Жаңа алгоритмді тексеру және нақтылау үшін төмендегі мысалдарды орындаймыз: Қолданылатын модульдерге inifiles модулін қосамыз.
Модуль формасының мәтініне өзгертулер енгіземіз, төмендегі қара шрифтпен жазылғандарды:
function FindFileBD(nmFileBD,nmIniFil:string;var scon:string; var dlg:TOpenDialog): string;
var sb,sIni:string;IniFil:TIniFile; begin sb:='';sIni:=ExtractFilePath(ParamStr(0))+ nmIniFil; if FileExists(sIni) then begin IniFil := TIniFile.Create(sIni); try sb:=IniFil.ReadString('Database', 'PathBase', ''); if sb='' then ShowMessage('Ошибка INI-файла !'+#13#10+sIni); finally IniFil.Free; end; end; if sb='' then sb:= ExtractFilePath(ParamStr(0))+ nmFileBD; if Not(FileExists(sb)) then
begin
//Настройка диалога:
dlg.Filter:='Файл ' +nmFileBD+'|'+nmFileBD;
dlg.Title :='Найдите файл базы данных !';
dlg.InitialDir:=ExtractFilePath(ParamStr(0));
if dlg.Execute then begin
sb:=dlg.FileName;ChangeBasePath(scon,sb);
