Показать сообщение отдельно
Старый 12.04.2012, 00:35   #1
rule-z
Гильдия RF-Cheats
Аватар для rule-z
OFFLINE
Регистрация: 11.02.2008
Возраст: 35
Сообщений: 2,270
Благодарностей:
1,494 всего
Мнения: + 4792
Репутация: 4600
Отправить сообщение для rule-z с помощью ICQ

Как сделать универсальный путь?


Собственно делаю приложение базы данных. База на парадокс 7.
Столкнулся с проблемой. Базу подключил нормально и грид ее нормально отображает.
Но в связи с тем, что у меня все выглядит вот как:
Есть папка с программой. В ней 4 папки: Application, DataBases, SourceCode, Images.
Весь код программы в соурскод. К компоненту тейбл базу подключить легко, достаточно прописать "..\DataBases\", а вот в скл запросал не получается уже такая фигня, и прога думает что точка отсчета - это папка SourceCode, где лежит исходник проги.

Вот мой скл запрос

Код:
DM.Query1.Close;
DM.Query1.SQL.Clear;
DM.Query1.SQL.Add('Select * from ???? where Login LIKE "'+sEdit1.Text+'%"');
DM.Query1.Open;
DM.Query1.FieldByName('ID').DisplayLabel:='ID';
DM.Query1.FieldByName('Login').DisplayLabel:='Login';
DM.Query1.FieldByName('Password').DisplayLabel:='Password';
Как мне указать универсальный путь там где "????", так чтобы он поднялся на уровень выше чем SourceCode и попал в папку где лежат те четыре папки, а дальше я бы уже прописал +'\DataBases\'+nameBD.