Путь к файлам базы данных

Для того чтобы файлы базы данных можно было размещать в любом месте (в том числе и на другом компьютере) я использую следующую методику:

1. Для каждого файла базы данных в Dictionary свойствах файла в поле "Full PathName" указываю имя глобальной переменной, например: "!City_file" (без кавычек, начинается с символа ! )
2. B области глобальных данных приложения определяю глобальную переменную для каждого файла,  например:
       City_file   CString(120)
       Store_file  CString(120)
       . . .
3. Там же определяю глобальную переменную для пути к базе данных:
       G:BasePath   CString(120)
4. В специальной процедуре, вызываемой один раз при запуске приложения, инициализирую все глобальные переменные с именами файлов следующим образом:
       G:BasePath = GetINI( 'Path', 'BasePath', '.\Dat\', '.\MyAppl.INI' )
       City_file   = clip( G:BasePath ) & 'City'
       Store_file = clip( G:BasePath ) & 'Store'
         . . .

Это дает возможность изменять путь к файлам базы данных путем изменения переменной BasePath в INI-файле приложения.

Если есть потребность иногда изменять путь или имя каждого конкретного файла, то процедура инициализации имен файлов немного усложняется:

    City_file = GetINI( 'FILES', 'City_file', '', '.\MyAppl.INI' )
    if City_file = ''
        City_file= clip(G:BasePath) & 'City'
    .