| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Какой модуль использовать? [D7, IB7.5]

RomanH ©   (2006-05-04 14:10:00) 

Здраствуйте мастера.
Имеется ini файл где прописан путь к БД
[Path]
PathToDB=с:\DB\IB.gdbВ приложений когда создается форма в событии OnCreate
хочу сделать, чтобы IBDataBase.DataBaseName:=PathToDB,
полученная строка от ini файла прописалась как путь к БД, чтобы достич универсальности.
Но я не знаю какой модуль использовать, подскажите пожайлусто

---

Anatoly Podgoretsky   (2006-05-04 15:22:00) [1]

RomanH ©   (04.05.06 15:01) [6]
У тебя должна быть ошибка времени выполнения.

---

Val   (2006-05-04 15:19:00) [2]

как вариант :)
TIniFile.Create(IncludeTrailingPathDelimiter(ExtractFileDir(ParamStr(0)))+'load.ini')

---

RomanH   (2006-05-04 15:01:00) [3]

> Johnmen ©

Да как Вы посоветовали, так я и сделал
loadini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'\load.ini');
Все таки очень хорошо когда мастера помогают и по теме и не по теме.
Спасибо.

---

RomanH   (2006-05-04 14:53:00) [4]

> Val ©

Да Вы были правы: сначала создавалась форма а затем модуль данных.Спасибо за помощь.

> Johnmen ©  

А Ваш советы я всегда внимательно читаю, почитаю в helpe про Application.ExeName.

---

Johnmen   (2006-05-04 14:44:00) [5]

да, и кстати, GetCurrentdir неверно указывать, ибо можно вообще не найти файл...
надо, например, Application.ExeName

---

Val   (2006-05-04 14:40:00) [6]

возможно, нет еще dm1.IBDatabase1 на этот момент.

---

RomanH   (2006-05-04 14:30:00) [7]

С ini файла я считываю путь
procedure TMainForm.FormCreate(Sender: TObject);
var loadini:TIniFile;
   PathToDataBase:string;
begin
      loadini:=TIniFile.Create(GetCurrentdir+'\load.ini');
      PathToDataBase:=LoadIni.ReadString('Path','PathToDB','');
      loadini.Free;
      dm1.IBDatabase1.DatabaseName:=PathToDataBase;

end;
Компилятор пишет ошибку связанную с аддресами на строке
dm1.IBDatabase1.DatabaseName:=PathToDataBase;

---

Val   (2006-05-04 14:12:00) [8]

см. help TIniFile

---

Наверх