[lubja]

доброго времени суток!
у меня маленькая проблемка, которую я не могу решить сама...
есть некоторая строка. я ее запихнула в двоичный файл, а вот обратно из этого файла получить строку не получается...

вот код записи строки в файл:

Код:

AssignFile(f, 'myFile');
Rewrite(f, 8);
BlockWrite(f, 'строка', 1);
CloseFile(f);

помогите, пожалуйста!

[Aristarh Dark]

Код:

var
  f:file;
  s:string;
begin
  AssignFile(f, 'myFile');
  Reset(f, 8);  
  SetLength(s,8);
  BlockRead(f,s[1],1);
  CloseFile(f);
end;

[lubja]

все это прекрасно! спасибо большое! но! строка s получается вида, как если бы я открыла этот двоичный файл в блокноте... т.е. набор всяких кракозябр!)))
а мне нужно получить обратно 'строка'

[Nyctos Kasignete]

Код:

var
  f: File;
  s: PChar;
begin
  AssignFile(f, 'myFile');
  Reset(f, 8);
  GetMem(s, 8);
  BlockRead(f, s^, 1);
  CloseFile(f);
  ShowMessage(StrPas(s));
  FreeMem(s, 8);
end;

[lubja]

почти, но тоже не так))) еще есть варианты?

[Страдалецъ]

похоже вы сохранили в досовской кодировке, а просматривать пытаетесь в виндовой.