Вниз
Скачать: CL | DM;

Какой модуль использовать?   Найти похожие ветки 

 
RomanH ©   (2006-05-04 14:10) [0]

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


 
Val ©   (2006-05-04 14:12) [1]

см. help TIniFile


 
RomanH ©   (2006-05-04 14:30) [2]

С 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:40) [3]

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


 
Johnmen ©   (2006-05-04 14:44) [4]

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


 
RomanH ©   (2006-05-04 14:53) [5]


> Val ©

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

> Johnmen ©  

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


 
RomanH ©   (2006-05-04 15:01) [6]


> Johnmen ©

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


 
Val ©   (2006-05-04 15:19) [7]

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


 
Anatoly Podgoretsky ©   (2006-05-04 15:22) [8]

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c
6-1140336796
Новочеркасский Волк
2006-02-19 11:13
2006.07.02
Dial-Up


1-1148476437
alec_sey
2006-05-24 17:13
2006.07.02
Массивы


15-1149340797
Новичоккк
2006-06-03 17:19
2006.07.02
Реализация BlowFish для Delphi


2-1150260316
Призрак
2006-06-14 08:45
2006.07.02
Передать THandle как Cardinal


4-1143575019
Noby
2006-03-28 23:43
2006.07.02
Кнопки мыши




   Наверх