[Alxd]

Есть вот такая структурка

Код:

// Запись настройки
Settings = record
   Name: String[255]; // Наименование настройки
   DBPath: String[255]; // Путь к базе
   DBUserName: String[100]; // Имя пользователя
   DBUserPassword: String[50]; // Пароль пользователя
   DBType: Byte; // Тип базы данных (0 - файловая, 1-серверная)
   ExchangeCode: String[10]; // Код настройки обмена
end;

// Коллекция настроек
SettingsData = record
   RunPath: String[255]; // Путь запуска 1С Предприятия
   Data: Array[0..49] of Settings; // Массив настроек
   Count: Byte; // Количество записей
end;

И есть процедура, которая осуществляет запись в файл

Код:

procedure SaveSettingsDB();
var
  SettingsFile: file of SettingsData;
begin
  AssignFile(SettingsFile, 'Settings.dat');
  Rewrite(SettingsFile);
  Write(SettingsFile, MainData);
  CloseFile(SettingsFile);
end;

Admin: Пользуемся тегами!

Проблема в следующем:
- Если есть записи в MainData.Data - все хорошо сохраняется, но если заполнить просто MainData.RunPath, а MainData.Data не трогать, то файл вообще не создается.

Вопрос: Почему так происходит и как это побороть?

[Alxd]

Немного разобрался

Код:

procedure TfrmSettings.btOpenPath1CClick(Sender: TObject);
begin
  OpenDialog.Filter:='Файл запуска 1С Предприятия|1cv8.exe';
  OpenDialog.Title:='Укажите путь запска 1С Предприятия';
  if OpenDialog.Execute then
  begin
    EditPath1C.Text:= OpenDialog.Files[0];
    MainData.RunPath:=EditPath1C.Text;
  end;
  OpenDialog.Destroy;
end;

Если OpenDialog не вызывать, а EditPath заполнять руками и потом

MainData.RunPath:=EditPath1C.Text;

...то все работает.
Подскажите, как это лечить?

[Aristarh Dark]

Ошибка не здесь. И судя по этой строке:

Код:

OpenDialog.Destroy;

к коде есть много интересного и неожиданного. Так что не удивительно наличие необъяснимых ошибок.

[Alxd]

Может и так
Но факт остается фактом, если выбор файла все таки произошел через OpenDialog, то Settings.dat не создается

[Aristarh Dark]

Полный код модуля в студию!

[Alxd]

Странно как-то просто

[Alxd]

Убрал все, что только можно - все равно не работает.
Помогите!!! А то уже разрыв мозга случился

Р.S.
Проектик прилагается

[Drozh]

Вроде нормально сохранил, поправил:

Код:

 EditPath1C.Text := OpenDialog1.FileName;

и

Код:

AssignFile(SFile, 'C:\Settings.dat');

лучше указывть полный путь к файлу

[Alxd]

Спасибо!!! Заработало!

А почему с неполным путем к файлу не работает. Есть этому объяснение?

[Drozh]

Незнаю, я просто один раз так налетел и ini-файлами, теперь всегда пишу полный путь... Кстати для AssignFile полный путь вроде можно и не указывать

[Alxd]

Ясненько. Спасибо тебе!

[Aristarh Dark]

А почему с неполным путем к файлу не работает. Есть этому объяснение?

Потому, что если не указан путь к файлу, то приложение работает в "текущем рабочем каталоге". Получить/установить его можно API функциями GetCurrentDirectory и SetCurrentDirectory. А разные там Save/Open диалоги значение текущего каталога меняют непредсказуемо.

[Alxd]

Сообщение от Aristarh Dark

Потому, что если не указан путь к файлу, то приложение работает в "текущем рабочем каталоге". Получить/установить его можно API функциями GetCurrentDirectory и SetCurrentDirectory. А разные там Save/Open диалоги значение текущего каталога меняют непредсказуемо.

Спасибо за разъяснение! Теперь все стало понятно