OpenDialog

[NitroSki]

Добрый день - подскажите пожалуйста, что за проблему мы имеем

Есть код

var
  opDialog : TOpenDialog;
  DirName : String;   
  i : integer;
  ConF : TextFile;
begin
  
  opDialog := TOpenDialog.Create(self);
 
  opDialog.InitialDir := GetCurrentDir;
 
  opDialog.Options := [ofFileMustExist,ofAllowMultiSelect];
 
  opDialog.Filter := 'Только Access файлы:|*.mdb';
 DirName := '';



        AssignFile(conF, 'DataBase.cfg');
ReWrite(ConF);

if OpDialog.Execute then

    with OpDialog.Files do
      for i := 0 to Count - 1 do
      begin

        DirName := Strings[I]+ ';';
        WriteLn(ConF,DirName);

      end;
        CloseFile(conF);
       opDialog.Free;

Принцип работы программы - через опен диалог мы выбираем файлы, название которых записывается в файл конфигурации...

Проблема заключается в следующем: Когда мы открываем Опен диалог и выбираем файл - его название и путь записывается в файл конфигурации...... НО ВСТАЕТ ПРОБЛЕМА - когда после этого мы снова открываем Опен диалог и выбираем уже другие файлы из директории, они уже не записываются в файл конфигурации.....

Смотрим конфиг - в нем остается предыдущая запись......


ПОМОГИТЕ СОВЕТОМ ЧТО НЕ ТАК....Почему после повторного открытия диалога и выбора других файлов они не пишуться в файл конфигурации..........

[evg_m]

Они пишутся но в ДРУГИЕ конфиги.

AssignFile(conF, 'DataBase.cfg');

Без указания пути используется ТЕКУЩАЯ директория(папка).
При КАЖДОМ использовании OpenDialog текущая папка изменяется. (на вновь открытую).
Следовательно каждый раз мы пишем в новый конфиг расположенный в НОВОЙ ТЕКУЩЕЙ (та которая была последней открытой)папке. теперь во всех(почти) папках где мы выбирали есть по Database.cfg. Лечится заданием ПОЛНОГО пути для файла

AssignFile(conF, ExtractfilePath(application.Exename) + 'DataBase.cfg');

[NitroSki]

Спасибо большое за подсказку.....Жаль только, что за 15 минут до Вашего поста(ответа) - мы все таки поняли в чем проблема - Вы правы Текущая директория меняется при выборе файла из любой другой директории

Поняли мы это пробившись головой об стену и танцуя с бубном вокруг компа пол дня

Кстати проблему решили немного по другому - не через AssignFile а через

SetCurrentDIr

А до этого как видно в коде у нас использовалась

GetCurrentDir

(Могли бы перевести английский язык и все было бы понятней гораздо быстрее)

Но в любом случае спасибо за Ваш ответ и за совет по использованию

AssignFile(conF, ExtractfilePath(application.Exename) + 'DataBase.cfg');

[evg_m]

Спасибо большое за подсказку.....

Не за что.

Кстати проблему решили немного по другому - не через Асиджн Файл а через СетКурентДиректори А до этого как видно в коде у нас использовалась ГетКурентДиректори (Могли бы перевести английский язык и все было бы понятней гораздо быстрее)

Текст был бы понятнее, если бы имена процедур остались оргинальными (без транслитерации).

[NitroSki]

Прошу прощения, я новичок на форуме, еще не вник в моветон

Исправлюсь