Пятница, 24.10.2025, 03:01
Приветствую Вас Гость | RSS
Главная | Статьи | Регистрация | Вход
Меню сайта
Категории раздела
Базы данных [11]
Мультимедиа [2]
Графика [2]
Защита [0]
Математика [0]
Сеть-интернет [1]
Система [4]
Разное [4]
Поиск
Вход на сайт
Наш опрос
Оцените мой сайт
[ Результаты · Архив опросов ]
Всего ответов: 7
Статистика
Онлайн всего: 1
Гостей: 1
Пользователей: 0
Мой сайт
Главная » Статьи » Базы данных [ Добавить статью ]
Создание алиасов в Delphi

Код: 

  1. procedure CheckAlias(const AliasName, AliasType, AliasPath: String);  
  2. { Если алиас не существует, создать его }  
  3. var  
  4. SList: TStrings;  
  5. i: Integer;  
  6. AliasFound: Boolean;  
  7. begin  
  8. { Проверка существования алиса BDE }  
  9. try  
  10. SList := TStringList.Create;  
  11. Session.GetAliasNames(SList);  
  12. AliasFound := False;  
  13. for i:=0 to SList.Count-1 do  
  14. if SList=AliasName then  
  15. begin  
  16. AliasFound := True;  
  17. break;  
  18. end;  
  19. finally  
  20. SList.Free;  
  21. end;  
  22. if AliasFound then  
  23. begin  
  24. try  
  25. SList := TStringList.Create;  
  26. Session.GetAliasParams(AliasName,SList);  
  27. {А в 4-ой версии SList[2]!!! и без слова Path }  
  28. if SList[0]< > ′PATH=′+AliasPath then { Правильно ли задан путь }  
  29. begin  
  30. SList[0] := ′PATH=′+AliasPath;  
  31. Session.ModifyAlias(AliasName,SList);  
  32. end;  
  33. finally  
  34. SList.Free;  
  35. end;  
  36. end  
  37. else  
  38. Session.AddStandardAlias(AliasName,AliasPath,AliasType); { Создать новый алиас }  
  39. Session.SaveConfigFile;  
  40. end;   


Источник: http://delphisources.at.ua/publ/bazy_dannykh/alias/sozdanie_aliasov_v_delphi/33-1-0-75#
Категория: Базы данных | Добавил: maxim-pogasim (03.09.2015)
Просмотров: 400 | Теги: алиасы | Рейтинг: 0.0/0
Всего комментариев: 0
Войдите:
avatar
Программистами не рождаются.Copyright BPC Team © 2014 - 2025

Хочу сжечь на костре этот дебильный Хостинг от uCozЯндекс.Метрика