Я думаю, что нужно делать так: хотим побить текстовый файл на N кусков, проверяем количество записей в исходном файле на кратность N. Если количество записей кратно - бьем на равные части, если не кратно, то к размеру части (FileSize(F1) div N) добавляем 1 запись. Соответственно, размер первых N - 1 кусков будет равен FileSize(F1) div N + 1, размер последнего куска: FileSize(F1) - (FileSize(F1) div N + 1) * (N - 1). Это гарантированно будет работать, если FileSize(F1) div N > N. Ну и реализация на Delphi:
procedure TForm1.Button1Click(Sender: TObject);
const
//Количество частей на которые надо разбить файл.
N = 10;
var
F1, F2 : File;
i, SizeFile, SizePart, SizePartLast : Cardinal;
Buff : array of Byte;
begin
if OpenDialog1.InitialDir = '' then begin
OpenDialog1.InitialDir := ExtractFilePath(Application.ExeName);
end;
if not OpenDialog1.Execute then Exit;
if not FileExists(OpenDialog1.FileName) then begin
ShowMessage('Указанный файл не найден. Действие отменено.');
Exit;
end;
AssignFile(F1, OpenDialog1.FileName);
Reset(F1, 1);
SizeFile := FileSize(F1);
SizePart := SizeFile div N;
SizePartLast := SizePart;
if SizePart < N then begin
ShowMessage('Указанный файл слишком мал. Разбиение отменено.');
CloseFile(F1);
Exit;
end;
if SizeFile mod N > 0 then
begin
SizePart := SizePart + 1;
SizePartLast := SizeFile - SizePart * (N - 1);
end;
SetLength(Buff, SizePart);
for i := 1 to N - 1 do
begin
AssignFile(F2, OpenDialog1.FileName + '.part' + IntToStr(i));
Rewrite(F2, 1);
BlockRead(F1, Pointer(Buff)^, SizePart);
BlockWrite(F2, Pointer(Buff)^, SizePart);
CloseFile(F2);
end;
//обработка последнего куска
AssignFile(F2, OpenDialog1.FileName + '.part' + IntToStr(N));
Rewrite(F2, 1);
SetLength(Buff, SizePartLast);
BlockRead(F1, Pointer(Buff)^, SizePartLast);
BlockWrite(F2, Pointer(Buff)^, SizePartLast);
CloseFile(F2);
CloseFile(F1);
end;
P.S. С функцией FileSize я раньше не работал никогда, почитал описание - она возвращает размер в ЗАПИСЯХ, по умолчанию размер записи - 128 байт. Т.е. красиво построчно эта процедура все равно не побьет, надо тогда пользоваться функциями для работы с текстовыми файлами.