Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  К-во рабочих дней в месяце
   Категория: Математика
  Получить список запущенных приложений
   Категория: Приложение
  Преобразовать любой тип в строку
   Категория: Текст и строки
  Узнать запущен ли сервис FireBird
   Категория: Интернет и Сети
  Упаковать *.mdb-файл
   Категория: Базы данных
  Как произвести поиск файлов во вложенных папках
   Категория: Файловая система
  Группировка TopAdvGrid
   Категория: Компоненты
  Получить имена всех папок и файлов в директории
   Категория: Файловая система
  Фреймы
   Категория: Компоненты
  Упаковать TinyDB
   Категория: Базы данных

Delphi - База Знаний: BDE. Создание алиасов

  << Вернуться к Содержанию  

procedure CheckAlias(const AliasName, AliasType, AliasPath: String);
{ Если алиас не существует - создать его }
var
 
SList: TStrings;
  i
: Integer;
 
AliasFound: Boolean;
begin
 
{ Проверка существования алиаса }
 
try
   
SList := TStringList.Create;
   
Session.GetAliasNames(SList);
   
AliasFound := False;
   
for i:=0 to SList.Count-1 do
     
if SList[i]=AliasName then
       
begin
         
AliasFound := True;
         
break;
       
end;
 
finally
   
SList.Free;
 
end;
 
if AliasFound then
   
begin
     
try
       
SList := TStringList.Create;
       
Session.GetAliasParams(AliasName,SList);
       
if SList[0]< > 'PATH='+AliasPath then { правильно ли задан путь }
         
begin
           
SList[0] := 'PATH='+AliasPath;
           
Session.ModifyAlias(AliasName,SList);
         
end;
     
finally
       
SList.Free;
     
end;
   
end
 
else
   
Session.AddStandardAlias(AliasName,AliasPath,AliasType); { создать новый алиас }
 
Session.SaveConfigFile;
end;
  << Вернуться к Содержанию