Қадам 2 – ini-файлын құру

1. Delphi менюінде File, New - ді таңдаңыз да шыққан диалогты терезесінде «New» - дан «Text» белгісін таңдап, «OK» басыңыз.

2. Код редакторында 2 бетті көресіз, олардын біреуі «File1.txt» болып аталады:

3. Delphi менюінде File, Save As таңдаңыз да, пайда болған диалогты терезеде жаңа мәтіндік файлды осы папкада сақтаңыз, «MyWorld.INI» аты арқылы сақталған «MyWorld» проекті орналасқан жерде:

4. Енді мәтіндік редакторда MyWorld.INI бетінде төмендегі екі жолды басыңыз,

[Database]

PathBase=C:\Мои документы\Temp\BDMyWorld.mdb

5. «Сохранить» батырмасын басыңыз.

6. INI–файлын құрдық, онда бір секция – Database және бір кілт – PathBase бар. Осындай файлды «Блокнот» бағдарламасы арқылы құруға да болады, бірақ Delphi де құрған ыңғайлы.

Қадам 3 – ini-файлын қолдану

Енді бағдарлама жұмысының алгоритімінің басын келесі түрдей ауыстырамыз:

1. Бағдарлама ашылған жерден INI-файлын осы папкада іздейміз.

2. Егер де ол бар болса, оны INI-файлында көрсетілген МҚ – ның жолына сәйкес ашамыз. Егер де ол жоқ болса, оны INI-файлында МҚ – ның жолы болмайды да келесі f) пунктіне көшеміз.

3. Егер де ашылған папкада INI-файлы жоқ болса, онда e) пунктіне көшеміз.

4. Егер де INI-файлы болса және де Database секциясы немесе PathBase кілті табылмаса, онда қате туралы мәлімет шығарамыз да келесі f) пунктіне көшеміз.

5. Ашылған бағдарлама папкасында МҚ файылын іздейміз. Егер ол болса, оны ашып жұмысты орындаймыз. Егер де ол жоқ болса, онда f) пунктіне көшеміз.

6. МҚ – ының файылын табу үшін экранға диалогты терезесін шығарамыз. Егер қолданушы оны диалогты терезеде таба алмаса, онда олармен қоштасып жұмысты аяқтаймыз.

7. Қолданушы МҚ – ының файылын диалогты терезеде тапса, онда оны бағдарламада берілген жолды сақтау керек. Нақтыландыратын жауапты табылған жолды 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

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);

if MessageDlg('Сохранить путь к БД в настройках программы?',

mtConfirmation,[mbYes,mbNo],0)=mrYes then begin

IniFil := TIniFile.Create(sIni);

try

IniFil.WriteString('Database', 'PathBase', sb);

except

ShowMessage('Ошибка INI-файла !'+#13#10+sIni);

end;

IniFil.Free;

end;

end else begin

ShowMessage('Не найден файл БД:'+#13#10+sb+#13#10+'До свидания !');

sb:='';

end;

end;

Result:=sb;

if sb<>'' then ChangeBasePath(ConStr,sb);

end;

procedure TfmMain.FormCreate(Sender: TObject);

var sbase:string;

begin

sbase:=FindFileBD('BDMyWorld.mdb','MyWorld.INI',ConStr,dlgBD);

if sbase<>'' then begin

ADOQuery1.Active :=False;

ADOQuery1.ConnectionString :=ConStr;

ADOQuery1.Active :=True;

NameSortField:=DBGrid1.Columns[0].FieldName;Desc:=False;

NewQuerySQL;

end else Application.Terminate;

end;

3. Назар аударыңыз! Келесі қадамға бармай тұрып, Active қасиетіне ADOQuery1 копонентасына False! мәнін беріңіз.

4. Қолданылған модельдерге inifiles модулін қосыңыз және проекті компилировать ету керек. Менюдан CTRL+F9 таңдап және далее, қате болмаса келесі істі орындаңыз.

5. Бағдарламаны проводник арқылы жіберіп, төмендегі тізімдер арқылы оның жұмысын тексеріңіз:

   1. МҚ – ның файлы да INI-файлы да жіберу папкасында жоқ.

   2. Тек қана INI-файлы жіберу папкасында бар.

   3. МҚ – ның файлы да INI-файлы да жіберу папкасында бар.

   4. INI-файлының ішінде қате бар, мысалы, Database секциясы жоқ, немесе PathBase кілті, немесе МҚ – на жол дұрыс көрсетілмеген.

Қандай да жағдайда бағдарлама жоғарыда жазылған алгоритмге сай жұмыс істеуі қажет.