BlockWrite, как записать туда строку AnsiString?

[GAMER]

subj и прочитать потом.

[zub]

записать длинну строки, потом содержимое.
чтото навроде этого:

Код: Выделить всё

ssize:integer;
...
//пишем
ssize:=length(s);
BlockWrite(f,ssize,sizeof(ssize));
BlockWrite(f,pointer(s)^,ssize);
..
//читаем
BlockRead(f,ssize,sizeof(ssize));
setlength(s,ssize);
BlockRead(f,pointer(s)^,ssize);

[GAMER]

Спасибо!

[alexs]

BlockWrite(f,pointer(s)^,ssize);

Фи.. строки в ponter... Не красиво. Тогда уже лучше PChar указать.

А можно просто

Код: Выделить всё

if ssize>0 then
  BlockWrite(f, s[1], ssize);

На мой взгляд - так лучше...