Запись в файл

[|{ot]

Здраствуйте!

В файл типа TFileStream я записываю переменную
запись(Type Tbuf = record
t1 ,t2 ,t3 : string;
end;
var buf : Tbuf; )
Записываю примерно 10 раз, но при чтении из этого файла в переменную buf значения совершенно меняются.

Это пример моей программы.

Кто знает в чем ошибка подскажите.
Заранее спасибо!

[N!ckeL]

Buff:array [1..3] of Char//или String, Byte, Integer;

[zetrix]

Попробуйте использовать не string, а например string [30]

Type 
Tbuf = record
t1 ,t2 ,t3 : string[30];
end;

[mutabor]

Попробуйте использовать не string, а например string [30]

Притом на один байт то ли больше, то ли меньше будет записываться, точно не помню.

[zetrix]

Совершенно верно, на 1 байт больше.
В нулевом байте каждой строки (s[0]) содержится длина строки. Т.е. если мы написали t1:string[30]; а потом сделали так: t1:='123'; и потом записали в файл,
то запишется сначало 3 (как байт) - длина нашей строки, потом содержимое строки ("123" - как коды аскии) а потом оставшиеся 27 не использованных байт.

Провёл эксперимент. Оставшиеся 27 байт - далеко не нули.

[Alter]

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

[|{ot]

Всем спасибо! Все работает!