Форум: "Базы";
Текущий архив: 2005.12.25;
Скачать: [xml.tar.bz2];
ВнизПсевдонимы... Найти похожие ветки
← →
makvell (2005-11-08 09:28) [0]Пишу примерно следующее:
Var
ALLAlias: TStringList;
Y: boolean;
i: integer;
Begin
Y:=false;
ALLAlias:=TStringList.Create;
//Получаю список всех псевдонимов
Session.GetAliasNames(AllAlias);
//Проверяю есть ли такокой какой нужен
for i:=0 to AllAlias.Count-1 do
if AllAlias.Strings[i]=AName then
y:=true;
AllAlias.Free;
if Y then exit
else
//Создаю псевдоним
With Session do
begin
ConfigMode:=cmSession;
AddStandardAlias(AName, APath, "PARADOX");
SaveConfigFile;
ConfigMode:=cmAll;
end;
Но!!! После закрытия программы он не сохраняется.
Как оставить его зарегистрированным?
Заранее спасибо.
← →
Digitman © (2005-11-08 09:35) [1]сначала нужно установить соответствующий ConfigMode, и только после этого вызывать SaveConfigFile
← →
makvell (2005-11-08 09:37) [2]Спасибо!
Ну и может быть тогда сразу спросить:
Какой?
← →
makvell (2005-11-08 09:44) [3]Все, все, все... Спасибо, уже исправил.
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2005.12.25;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.012 c