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

path в алиасе   Найти похожие ветки 

← →
denis24   (2003-03-04 09:56) [0]

Привет всем!Как узнать сабж програмно?

---

← →
Соловьев ©   (2003-03-04 10:00) [1]

procedure TMainForm.FormCreate(Sender: TObject);
var MyStringList: TStrings;
begin
Application.OnHint := ShowHint;
MyStringList := TStringList.Create;
try
Session.GetAliasParams("App",MyStringList);
PathDB := Copy(MyStringList.Strings[0],6,255);
finally
MyStringList.Free;
end;
end;

---

← →
Соловьев ©   (2003-03-04 10:01) [2]

> Application.OnHint := ShowHint;

не обязательно :))))

---

← →
passm ©   (2003-03-04 10:04) [3]

denis24 (04.03.03 09:56)>
function GetAliasPath(const Session: TSession; const AliasName: string): string;
var
List: TStringList;
begin
Result:= "";
List:= TStringList.Create;
try
Session.GetAliasParams(AliasName, List);
Result:= List.Values["PATH"]
finally
List.Free
end
end;

---

← →
stone ©   (2003-03-04 10:05) [4]

var
ParamList: TStringList;
...
with Session do
try
GetAliasParams(AliasName, ParamList);
Result := UpperCase(ParamList.Values["PATH"])+"\";
finally
ParamList.Free;
end;

---

← →
denis24   (2003-03-04 10:15) [5]

А что такое session в этой процедуре?

---

← →
Соловьев ©   (2003-03-04 10:16) [6]

Можешь положить компонент из заклядки BDE? а можешь использовать ту которая автоматически создается, когда идет соеединение с БД.

---

← →
denis24   (2003-03-04 10:23) [7]

Я не используюю компонет session.У меня просто table ,query
ЕЕ имя просто session?

---

← →
passm ©   (2003-03-04 10:25) [8]

denis24 (04.03.03 10:23)> Table.Database.Session

---

← →
Соловьев ©   (2003-03-04 10:31) [9]

> ЕЕ имя просто session?

Да напиши как я тебе дал в коде.

---

← →
denis24   (2003-03-04 10:32) [10]

А если у меня table и query еще закрыты?
Мне нужно удалить один файл до открытия всех датасетов в каталоге алиаса?

---

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

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



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