[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]

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

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

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

[lubja]

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

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

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

[lubja]

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

[Nyctos Kasignete]

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

как нормально(!) записать строку в файл и обратно?

Использовать тип текстового файла.

Код:

var
  f: TextFile;
  str: string[8];
begin
  // запись
  Str := 'строка';
  AssignFile(f, 'myFile');
  Rewrite(f);
  Write(f, Str);
  CloseFile(f);

  // чтение
  AssignFile(f, 'myFile');
  Reset(f);
  Read(f, str);
  CloseFile(f);
  ShowMessage(str);
end;

[lubja]

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