помогите понять кусок кода

[Arteom]

uses IniFiles, FileCtrl;
const SIniFileName: String = 'ADODemo.ini';
SEmptyDefDB: String = 'DataBase path is empty';
SEmptyFilter: String = 'Records for filter is not selected';

procedure TfmMain.FormShow(Sender: TObject);
begin
with TIniFile.Create(SIniFileName) do
try
DefDBStr := ReadString('DefDB','DefDBStr',' ');
edDefDB.Text := DefDBStr;
finally;
Free;
end;
SetLengh(Bookmarks, 0);
end;

[SERG1980]

загружает с INI файла настройки

[Arteom]

а построчные комментарии м\не могли бы написать, ато хочется понять все самому

[Pitbull]

uses IniFiles, FileCtrl; // подключение модулей
const SIniFileName: String = 'ADODemo.ini'; //буквенная переменная, отвечающая за путь к Ини -файлу
SEmptyDefDB: String = 'DataBase path is empty';//буквенная переменная
SEmptyFilter: String = 'Records for filter is not selected';//буквенная переменная

procedure TfmMain.FormShow(Sender: TObject);//процедура ,которая віполняется при показе формы
begin // начало
with TIniFile.Create(SIniFileName) do // создается ini файл в блоке with
try//начало блока исключения
DefDBStr := ReadString('DefDB','DefDBStr',' '); //считіваем в переменную DefDBStr значение переменной DefDBStr из ini файла,которая находится в разделе DefDB ini файла....Т.е в ини-файле должен біть раздел DefDB и прописано значение переменной DefDBStr
edDefDB.Text := DefDBStr;// присваиваем значение,которое считали.
finally// продолжение исключения, оператор ,которій будет после єтого оператора,будет віполнться при любіх расскладах.
Free;//освобождается ини фаил
end;
SetLengh(Bookmarks, 0);// не понимаю для чего,но тут устанавливается размер метки(либо просто переменной) в 0.
end;

[Arteom]

большое спасибо Pitbull!!!
Еще вопросик такой. Я так понимаю что здесь считывают из инишника настройки, чтобы потом использовать их при подключении к базе данных. Как это можно сделать, используя ADOConection? Ведь просто тупо в строке Conection не напишешь имена этих переменных...

[Andrei]

Сообщение от Arteom

большое спасибо Pitbull!!!
Еще вопросик такой. Я так понимаю что здесь считывают из инишника настройки, чтобы потом использовать их при подключении к базе данных. Как это можно сделать, используя ADOConection? Ведь просто тупо в строке Conection не напишешь имена этих переменных...

Так ведь строка Conection - это, как видно из самого названия, СТРОКА, т.е. переменная типа стринг. Ты тупо и формируй ее из этих переменных. Получится что-то наподобии:

 
var MyProvider, MyDataSource: string;
begin
 ...
 MyProvider:='Microsoft.Jet.OLEDB.4.0';
 MyDataSource:='c:\MyDatabase\MyBase.mdb';
 AdoConnection1.ConnectionString:='Provider='+MyProvider+'; Data  Source='+MyDataSource;
 ...
end;

[Arteom]

Спасибо, уже начинаю въезжать. Но вот хотелось бы еще узнать на счет типа TIniFile, как его использовать для моих целей. Может кто знает какие функции или где можно посмотреть?

[Pitbull]

Сообщение от Arteom

Спасибо, уже начинаю въезжать. Но вот хотелось бы еще узнать на счет типа TIniFile, как его использовать для моих целей. Может кто знает какие функции или где можно посмотреть?

Ну в ини ті можешь запихнуть, например, путь к базе.... Логин...Пароль... Записівать логи....
Т.е настройки... Ини очень удобен, т.к его легко структурировать с помощью разделов....
а потом считівать єти данніе...