у меня такая проблема: имеется два фаила, каждый более 64к. вопрос как можно соеденить их в один файл как массив байтов. (файлы не текстовые).
пожалуйста если можно подробней.
program Merge;
var
fi, fo: File;
Buf: array[0..8191] of Byte;
r: Integer;
begin
Assign(fo, 'merged.dat');
Rewrite(fo, 1);
Assign(fi, 'chunk1.dat');
Reset(fi, 1);
repeat
BlockRead(fi, Buf, SizeOf(Buf), r);
BlockWrite(fo, Buf, r);
until r < SizeOf(Buf);
Close(fi);
Assign(fi, 'chunk2.dat');
Reset(fi, 1);
repeat
BlockRead(fi, Buf, SizeOf(Buf), r);
BlockWrite(fo, Buf, r);
until r < SizeOf(Buf);
Close(fi);
Close(fo);
end.