Как разбить файл на равные части?

← →
Виталий (2004-04-04 17:46) [0]

Как разбить файл на равные части (Например: *.txt), так чтобы можно было в Memo просмотреть первые 64Кб, затем вторые и так далее?

← →
Doctor Deejay © (2004-04-04 17:57) [1]

Не парься. Залезь в любой FAQ и найди там 2 строчки кода, вставь их и у тебя мемо будет до х и больше показывать!

← →
Camypau (2004-04-04 20:31) [2]

хехе RichEdit юзай :)
а вообще примерно так
var
F : file; // входной файл
F2 : file; // выходной файл
buffer : array of char;
Count : integer;
begin
SetLength(Buffer, 64k);
Assignfile(..., F);
Reset(f);

while not eof(f) do
begin
BlockRead(f, Pointer(Buffer)^, 64k, Count);
Assignfile(..., F2);
Rewrite(F2);
BlockWrite(f, Pointer(Buffer)^, Count);
CloseFile(f2);
if Count < 64k then
break;
end;
КлозеФайл(Ф);
end;
:)

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

Как разбить файл на равные части? Найти похожие ветки