Обновление для файлов записей и обратной совместимости

Question

У меня есть такой файл:

file of record 
    Str: string[250]; 
    RecType: Cardinal; 
end; 

, но через некоторое время с помощью этого файла мой клиент нашел, что ул никогда не будет больше, чем 100 символов, а также он нуждается в дополнительных полей.

В новой версии у нас есть такой файл:

file of packed record 
    Str: string[200]; 
    Reserved: array[1..47] of Byte; 
    NewFiled: Cardinal; 
    RecType: Cardinal; 
end; 

Эта запись имеет одинаковый размер, в предыдущей записи между Str и RecType был один неиспользуемые байтами при выравнивании до 8 байт.

Вопрос: что произошло, когда этот новый файл будет считываться из старого кода? Ему нужна обратная совместимость.

Старый образец кода чтения:

var 
    FS: TFileStream; 
    Rec: record 
     Str: string[250]; 
     RecType: Cardinal; 
     end; 
... 
// reading record by record from file: 
FS.Read(Rec, SizeOf(Rec)); 

Answer 1

Старая школа паскалевской использовать первый байт строки (индекс 0), чтобы сохранить длину строки.

Давайте посмотрим на память об этой записи:

byte 0 1 2 3 4 5 6 7 8 9 10 11 12 13 ........ 243..246 247..250 
value 10 65 66 67 68 69 70 71 72 73 74 0 200 130   NewField RecType 

От байта 11 до 242, память может содержать мусор, оно просто игнорируется программой (не показано), как это имеет значение 10 в байт 0, как длина строки, поэтому строка становится 'ABCDEFGHIJ'

Это обеспечивает старую программу чтения файла, созданный с помощью самого последней версии никогда не увидит мусора в конце строк, так как зрения ngs будет ограничено фактическим размером строки и что позиции памяти просто игнорируются.

Вам нужно дважды проверить, не изменила ли старая программа значения, сохраненные в случае записи записей в файл. Я думаю, что это тоже безопасно, но я просто не уверен, и у нас нет Delphi для тестирования.