[nixel]

Добрый день, уважаемые форумчане.

Возникла проблема при чтении одного из полей записи, которая была предварительно слита в файл через TFileStream.

Суть:
Была record, полям которой присваивались значения некоторых переменных, а потом эта запись заливалась в файл.
В другом методе из этого файла считывались данные и заливались в эту же record. Все работало отлично и без нареканий, пока я не решил добавить в запись новое поле. Проблема возникла при чтении данных из файла - в это новое поле не пишется ничего, хотя все остальные поля прогружаются исправно.

Привожу кусок кода. Может быть замыленный взгляд пропустил какую-то мелочь. Заранее спасибо за помощь.

Код:

var
  Count: integer;  
  protocol: string= '0.04.02.00';
  ...

type
  RTempField= record //для справки в ней так же есть и массивы.
    ...
    count: integer;
    protocol: string; //вот проблемное поле. пробовал менять тип на integer (с изменением типа переменной разумеется) - результата не принесло.
    ...
  end;

procedure TMasField.SaveToFile(FileName: string);
var
  TempField: RTempField;
  FileData: TFileStream;
begin
  ...
  TempField.count:= Count;
  TempField.protocol:= protocol; //прогонял дебаггером - в поле записи значение стоит
  ...
  FileData:= TFileStream.Create(FileName, fmCreate);
  FileData.Write(TempField, sizeof(TempField));
  FileData.Free;
end;

procedure TMasField.LoadFromFile(FileName: string);
var
  FileData: TFileStream;
  TempField: RTempField;
begin
  FileData:= TFileStream.Create(FileName, fmOpenRead);
  FileData.Read(TempField, sizeof(TempField));
  FileData.Free;
  if (TempField.protocol) < (protocol) then //А вот здесь в поле записи уже стоит "", хотя должно быть загружено из файла.
    begin
      ...
    end;  
  Count:= TempField.count; //Тут все работает нормально.
  ...  
end;

[dr. F.I.N.]

Думаю, следует ограничить размер всех STRINGовых полей записи.

Код:

var
  Count: integer;  
  protocol: string[10]= '0.04.02.00';
  ...

type
  RTempField= record //для справки в ней так же есть и массивы.
    ...
    count: integer;
    protocol: string[10]; //вот проблемное поле. пробовал менять тип на integer (с изменением типа переменной разумеется) - результата не принесло.
    ...
  end;

[nixel]

Сообщение от dr. F.I.N.

Думаю, следует ограничить размер всех STRINGовых полей записи.

Спасибо, но не помогло.
Думал, что может быть protocol - какое-то системное имя, но переименование тоже результата не дало.

[dr. F.I.N.]

Код:

type
  RTempField= record //для справки в ней так же есть и массивы.
   end;

Какие массивы? Можно полностью увидеть стуктуру записи?

[nixel]

Сообщение от dr. F.I.N.

Какие массивы? Можно полностью увидеть стуктуру записи?

да, конечно. вот.

Код:

  RTempField= record
    Mas: array[1..8, 1..8] of byte;
    FieldOwner: array[1..8, 1..8] of byte;
    side: byte;
    players: byte;
    count: integer;
    protocol: string;
    AbsLose: array[1..4] of boolean;
  end;

Про массивы это я к тому, что там не только integer'ы. И что все нормально туда обратно выгружается, кроме почему-то вот этого одного поля.

[angvelem]

Для начала нужно в обязательном порядке перегрузить Дельфи (имеется у него такой глюк), затем желательно ограничить String, далее "прошагать" проблемное место.

[nixel]

Сообщение от angvelem

Для начала нужно в обязательном порядке перегрузить Дельфи (имеется у него такой глюк), затем желательно ограничить String, далее "прошагать" проблемное место.

Проблема повторяется уже третий день, String ограничил, отладчик при сохранении в файл показывает, что в переменной значение есть, а при загрузке - что она пустая.
Открывать файл hex-редактором пробовал, но толку мало.
В какую еще сторону глядеть не могу даже представить.

p.s. Да и стал бы я напрягать других людей, не поискав прежде причину сам =)

[angvelem]

Повторюсь, "прошагать". Ставишь курсор на строку где начинается чтение файла и далее F7, F8, в зависимости от того, нужно входить в какие-либо процедуры/функции или "перескочить" их. Чтобы сразу попасть на нужную строку, жмём F4.
Кстати, обратил внимание. Почему record без указания packed? И не стал бы я такую структуру читать через TFileStream, BlockRead и все дела.

[nixel]

Сообщение от angvelem

Повторюсь, "прошагать". Ставишь курсор на строку где начинается чтение файла и далее F7, F8, в зависимости от того, нужно входить в какие-либо процедуры/функции или "перескочить" их. Чтобы сразу попасть на нужную строку, жмём F4.

Под отладчиком я имел ввиду весь инструментарий отладки: и проход кода построчно, и watches и много чего еще. Разве что содержимое памяти и ассемблерную мнемонику не просматривал, ибо не разбираюсь.

[angvelem]

Ух тяжко:

Код:

type
  TTempField= record
    Mas: array[1..8, 1..8] of byte;
    FieldOwner: array[1..8, 1..8] of byte;
    side: byte;
    players: byte;
    count: integer;
    protocol: string;
    AbsLose: array[1..4] of boolean;
  end;

var
  TempField : TTempField;
...
читаем
...
var
  FileIn : File of TTempField;
begin
  AssignFile(FileIn, 'MyFile');
  Reset(FileIn);
  Read(FileIn, TempField]);
  CloseFile(FileIn);
end;
...
пишем
...
var
  FileOut : File of TTempField;
begin
  AssignFile(FileOut, 'MyFile');
  Rewrite(FileOut);
  Write(FileOut, TempField]);
  CloseFile(FileOut);
end;

[nixel]

Интересное решение. В скором времени попробую и отпишусь. Спасибо.

[nixel]

Спасибо всем за ответы.
Проблема решилась очень просто: я три дня каждый раз грузил из файла (через opendialog) в котором вообще нет данных о поле protocol.
Извините за потраченное время.

p.s. Заработало и с потоками, так что не пришлось переделывать код под работу с типизированным файлом.