[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).

[angvelem]

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

Код:

  St:='';
  BlockRead(F,St,SizeOf(St));

...
В результате St принимает первоначальное значение, т.е. запись и чтение происходят нормально

Ну-ну, действуй.

[micron18]

как всё таки написать правильно? (нет не работает :-) )

BlockWrite(F,St,....) ?

[angvelem]

Конечно нет. Сначала запиши длину строки, потом саму строку. Читаешь также - длина строки, сама строка.

[micron18]

можно всё таки поконкретнее :-)
Чтобы записать строку типа String в файл типа File
как правильно использовать BlockWrite и BlockRead ?

[micron18]

"Сначала запиши длину строки" это как? BlockWrite(F,Length(St),SizeOf(...)) ?

[angvelem]

Куда уж конкретнее.

Код:

  I := Length(St); 
  BlockWrite(F, I, SizeOf(I));
  BlockWrite(F, St, Length(St));