FreePascal.ru

А зачем вообще пихать структуру в файл ?Может достаточно обычной таблицы в файле в разделителями tab. Заодно и место сэкономите, так как для каждой строки выделяется пространство по ее длине.

"Пихать структуру в файл"..это я так хотел легко и быстро сохранять массивы своих записей. Однако уже ...

Кстати..возник еще один вопрос на данную тему. А возможно ли в процессе выполнения программы изменить зарезервированую длину строчной переменной? С целью экономии места при записи в файл естественно.
Насколько я понимаю функция SetLength просто изменяет значение нулевого байта в строке сообщая ...

Да понятно..более чем. Спасибо. Рассказали именно в тему.

Всем большое спасибо за разжовывание материала о шортах вчастности, попрактикуюсь - сообщу о результатах.

Вас надо понимать так, что Вы присваиваете своей переменной bz.s текст из пустого Мемо и героически ожидаете, что в переменной bz.s появится текста ровно на 4 байта? Я Вас правильно понял?
Да ...

строка 'проверка' занимает в памяти не 4 байта
Любая вводимая строка до 256 символов записывается в файл 4 байтами.
Вам нужно либо использовать тип shortstring для s, либо по другому записывать в файл.
Хорошо, как по другому в лазарусе сохранить текст не в текстовом файле а например file of ...

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

type

baza=record
s:string;
end;


var

bz:baza;
f:file of baza;



bz.s:='проверка';

AssignFile(f,'C:\111.dat');
Rewrite(f);
Write(f,bz);
CloseFile(f);



AssignFile(f,'C:\111.dat');
Reset(f);
Read(f,bz);
CloseFile(f);

Memo1.Lines.Add(bz.s);

при ...