INI-файлына сақтаймыз.
8. Табылған МҚ - мен байланысамыз да бағдарламаның жұмысын бастаймыз.
Жаңа алгоритмді тексеру және нақтылау үшін төмендегі мысалдарды орындаймыз: 1. Қолданылатын модульдерге inifiles модулін қосамыз.
2. Модуль формасының мәтініне өзгертулер енгіземіз, төмендегі қара шрифтпен
жазылғандарды:
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
