[micron18]

в Delphi 2010 пытаюсь записать строковую переменную St типа String состоящую из 30 символов в файл так:
BlockWrite (F,St,SizeOf(string)), но при этом в файл зписывается всего 4 байта. При чтении записанного файла с помощью BlockRead(F,St,SizeOf(string)) содержимое St получается пустым (""). Подскажите пожалуйста в чём дело?

[angvelem]

Причём тут SizeOf? Length.
SizeOf даёт длину указателя на строку, как раз 4 байта.

[micron18]

значит должно быть BlockWrite(F,St,Length(St)) ?

[angvelem]

Код:

Write(F, St);

[micron18]

Length вместо SizeOf в BlockWrite/BlockRead использовать для всех типов переменных? Странно. Я всегда до встречи со String ставил SizeOf и всё писалось и читалось нормально

[angvelem]

String это указатель на память, где хранится информация, а указатель пока что занимает 4 байта.

[micron18]

Write используется ведь при записи в текстовый файл...

[micron18]

вот так вроде бы получается:

Код:

var F:File;
    St:String;
begin
...
  Seek(F,0);
  BlockWrite(F,St,Length(St));
  Seek(F,0);
  St:='';
  BlockRead(F,St,SizeOf(St));
...

Bargest: Оформляем код тегами!
В результате St принимает первоначальное значение, т.е. запись и чтение происходят нормально

[angvelem]

Если нужна запись структуры в которой присутствует String, то считаем длину структуры через SizeOf - 4 + Length(St).