Запись String через BlockWrite

[Alex Cones]

Насколько я помню, string - сам по себе указатель на первый символ строки (или на нулевой, поправьте).

Так вот, как используя BlockRead\BlockWrite Читать, записать String? По одному символу? Предварительно записав их длину?

[Пепел Феникса]

если нужно тупо символы то

BlockWrite(F,S[1],Length(s)*SizeOf(Char);

ну а если с длиной тo

procedure ReadString(F:File;S:string);
var i:integer;
begin
 i:=Length(S);
 BlockWrite(F,i,SizeOf(i));
 BlockWrite(F,s[1],i*SizeOf(Char));
end;

function ReadString(F:File):string;
var i:integer;
begin
 BlockRead(F,i,SizeOf(i));
 SetLength(Result,i);
 BlockRead(F,Result[1],i*SizeOf(Char));
end;

а вообще я писал уже этот пример, только для TStream

[Alex Cones]

BlockWrite(F,S[1],Length(s)*SizeOf(Char);

В этом случае, как я понимаю, определитель длины становится на свое место правильно?

[Пепел Феникса]

в таком случае пишутся только символы, ни их длина, ни что либо еще не пишется.(а функции мои уже пишут/читают с длиной)