Сохранение из Memo в файл

[Diman1904]

Такая проблемка. Допустим, что в memo написано "1AH6n". Надо подобную ерунду сохранить в двоичный файл. Потом нужно этот файл открыть чтоб в memo снова было "1AH6n".

Вот код, но тут не сохраняет в двоичном виде.

procedure TForm1.Button3Click(Sender: TObject);
var f:file;
    s:string;
    i:integer;
begin
SaveDialog1.Title:='Сохранение';
SaveDialog1.InitialDir:= GetCurrentDir;
SaveDialog1.Filter:='Бинарный файл|*.binfile';
SaveDialog1.DefaultExt:='binfile';
SaveDialog1.FilterIndex:=1;
if (SaveDialog1.Execute) then
begin
assignfile(f,SaveDialog1.FileName);
rewrite(f,1);
s:=Memo2.Text;
for i:=1 to length(s) do
blockwrite(f,s[i],1);//запись по 1 байту
closefile(f);
Form1.Label1.Caption:=('Файл сохранен в ' + SaveDialog1.FileName);
end;
end;

procedure TForm1.Button4Click(Sender: TObject);
var f:file;
    c:char;
begin
If OpenDialog1.Execute
then
begin
assignfile(f,OpenDialog1.FileName);
reset(f,1);
while not eof(f) do
 begin
  blockread(f,c,1);//чтение по 1 байту
  Memo2.Text:=Memo2.Text+c;
 end;
 end;
closefile(f);
end;

[Zer0]

Как вы думаете, если записывать в файл побайтово строку, что отобразится в файле? (подсказка: записанный байт = коду символа)
Так что сомнительное утвреждение, что пишется не бинарный файл. Вот если бы кроме строки текста еще что-то было, тогда сразу бы стало видно

[astecenko]

Такая проблемка. Допустим, что в memo написано "1AH6n". Надо подобную ерунду сохранить в двоичный файл. Потом нужно этот файл открыть чтоб в memo снова было "1AH6n".

Не создавайте проблемы там где их нет

...
Memo2.Lines.SaveToFile(SaveDialog1.FileName);
....
Memo2.Lines.LoadFromFile(OpenDialog1.FileName);
...

[Utkin]

Не создавайте проблемы там где их нет

Там проблема в другом. Ему не нужен текстовый файл. А вот какой ТС по-ходу еще сам не в курсе.