Текущий архив: 2004.04.25;
Скачать: CL | DM;

Вниз

TiniFile   Найти похожие ветки 

← →
Vit   (2004-04-06 00:12) [0]

Подскажите пожалуйста, пол вечера мучаюсь над дурацкой ошибкой.
В ini файлу лежит путь к БД. При создании формы я хочу что бы этот путь прописывался в Query1.DatabaseName. Я делаю так:

procedure TMain.FormCreate(Sender: TObject);
var mProg:TiniFile;
Path: String;
Begin
Path:=mProg.ReadString("Start", "PathToBD", "");
mProg.Free;
Query1.Close;
Query1.DatabaseName:=Path;
QUERY1.Open;
end;

---

← →
Алхимик ©   (2004-04-06 00:29) [1]

А создавать ИНИ файл дядя будет?

---

← →
_sulent ©   (2004-04-06 08:43) [2]

Попробуй что-нибудь вроде вот этого!

...
uses ...,IniFiles;
...
procedure TMain.FormCreate(Sender: TObject);
var
 mProg: TIniFile;
 Path: String;
begin
 mProg := TIniFile.Create(ExtractFilePath(Application.ExeName)+"path.ini");
 try
   Path := mProg.ReadString("Start", "PathToBD", "c:\base.mdb");
   ...
 finally
  mProg.Free;
 end;
end;


---

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

Текущий архив: 2004.04.25;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.046 c