Адаптация

[funny.weirdo]

Помогите пожалуйста
У меня есть код для открытия и сохранения файлов, не получается переделать его под нетекстовые файлы

procedure TForm1.MenuItem5Click(Sender: TObject);
var
  f:TextFile;
   i, k: Integer;
begin
  if SaveDialog1.Execute() then
  begin
    AssignFile(f, SaveDialog1.FileName);
    Rewrite(f);
    with StringGrid1 do
    begin
    Writeln(f, ColCount);
    Writeln(f, RowCount);
    for i := 0 to ColCount - 1 do
       for k := 0 to RowCount - 1 do
         Writeln(F, Cells[i, k]);
   end;
    CloseFile(f);
  end;
end;

procedure TForm1.MenuItem6Click(Sender: TObject);
var f:TextFile;
   x, i, k: Integer;
   str: String;
begin
  if OpenDialog1.Execute() then
  begin
    AssignFile(f, OpenDialog1.FileName);
    Reset(f);
    with StringGrid1 do
   begin
    Readln(f, x);
     ColCount := x;
    Readln(f, x);
     RowCount := x;
    for i := 0 to ColCount - 1 do
       for k := 0 to RowCount - 1 do
       begin
         Readln(f, str);
         Cells[i, k] := str;
       end;
   end;
    CloseFile(f);
  end;
end;

[macomics]

Не понятная проблема. Вместо TextFile пишите File. При открытии указывайте длину операции с файлом (если не уверены, то ставьте 1). Для чтения и записи BlockRead и BlockWrite соответственно. Для записи строк надо в начале записать ее длину, чтобы можно было прочитать без поиска конца строки в буфере. Значения типа Integer при длине операции равной 1 будут иметь длину 4. Остальное дело техники и не требует сильного изменения уже написанного текста.