Показать сообщение отдельно
  #1  
Старый 19.05.2009, 09:06
Аватар для Alxd
Alxd Alxd вне форума
Прохожий
 
Регистрация: 19.05.2009
Сообщения: 23
Репутация: 10
Вопрос Помогите пожалуйста разобраться

Есть вот такая структурка
Код:
// Запись настройки
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 не трогать, то файл вообще не создается.

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