БОЛЬШОЙ FAQ ПО DELPHI



Изменение каталога псевдонима во время выполнения приложения

Я делаю это все время. У меня есть INI-файл, который сообщает, где можно найти таблицы и каталоги их расположения. Вот как я это делаю:


 procedure CheckTable(var Table: TTable; var TName: string);
 var
   ChangePath: boolean;
   Path: string;
   ActiveState: Boolean;
 begin
   if (TName = '') then
     TName := Table.TableName
   else
     with Table do
     begin
       ActiveState := Active;
       Close;
       Path := ExtractFilePath(TName);
       ChangePath := HasAttr(DatabaseName, faDirectory) or
         (CompareText(DatabaseName, Path) <> 0);
       if (Length(Path) > 0) and ChangePath then
         DatabaseName := Path;
       if (CompareText(ExtractFileName(Tname), TableName) <> 0)
         then
         TableName := ExtractFileName(Tname);
       Active := ActiveState;
     end;
 end;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ