Шығыс Қазақстан облысының білім басқармасы


INI-файлына сақтаймыз.    8



Pdf көрінісі
бет138/180
Дата06.01.2022
өлшемі4,77 Mb.
#15026
1   ...   134   135   136   137   138   139   140   141   ...   180
Байланысты:
УМК-ОББ

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 


Достарыңызбен бөлісу:
1   ...   134   135   136   137   138   139   140   141   ...   180




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет