Дописать файл

[Mrbober]

Добрый день подскажите пожалуйста как можно дописать битовый файл в делфи... Я побывал через Append но нечего нешлоо.. а больше способов дописании я не знаю.

[Serge_Bliznykov]

как и любой бинарный файл. либо "по старому" через BlockWrite()
либо, по новому - через TFileStream

не разберётесь - пример напишу...

[Mrbober]

Вот к примеру сделал

procedure TForm1.Button1Click(Sender: TObject);
var byteArray :byte;
myFile : file;
begin
byteArray := 49;
AssignFile(myFile, 'qw.txt');
ReWrite(myFile, 1);

BlockWrite(myFile, byteArray, 1);
CloseFile(myFile);
end;

end.

myFile есть qwerty;
После запуска программы у меня остается только 1.... А как мне ДОПИСАТЬ ЧТОБЫ было 1werty

[Mrbober]

в С гораздо прощеее....

[Serge_Bliznykov]

пример через BlockWrite

const sFileName = 'tt11.dat';
var f : file;
  OneByte : byte;
begin
  if Not FileExists(sFileName) then begin
     Application.MessageBox(PChar('Файл '+sFileName+' не существует!'), 'Ошибка!',
                                     MB_ICONERROR or MB_OK);

     Exit;
  end;
  AssignFile(f, sFileName);
  Reset(f,1);
  Seek(f, FileSize(f));
  OneByte := 49;
  BlockWrite(f, OneByte, SizeOf(OneByte));
  CloseFile(f);
  Application.MessageBox(PChar('Файл '+sFileName+' успешно дозаписан!'),
          'Информация',        MB_OK);
end;

p.s. выделена значимая часть