|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Разбить текст на части, подсказка
Добрый день уважаемые пользователи.
Этот код разбивает текст на части и сохраняет в одной папке. Вопрос такого плана: Как сделать что бы каждый файл сохранялся в отдельной папке при разбитии ?. Код:
procedure TForm2.Button1Click(Sender: TObject); if not OpenDialog1.Execute then Exit; if not FileExists(OpenDialog1.FileName) then begin ShowMessage('Указанный файл не найден. Действие отменено.'); Exit; end; AssignFile(F1, OpenDialog1.FileName); Reset(F1, 1); if FileSize(F1) < N then begin ShowMessage('Указанный файл слишком мал. Разбиение отменено.'); CloseFile(F1); Exit; end; SizePart := FileSize(F1) div N; SizePartAdd := FileSize(F1) mod N; SetLength(Buff, SizePart); for i := 1 to N do begin AssignFile(F2, OpenDialog1.FileName + '.part' + IntToStr(i)); Rewrite(F2, 1); BlockRead(F1, Pointer(Buff)^, SizePart); BlockWrite(F2, Pointer(Buff)^, SizePart); if (i = N) and (SizePartAdd > 0) then begin BlockRead(F1, Pointer(Buff)^, SizePartAdd); BlockWrite(F2, Pointer(Buff)^, SizePartAdd); end; CloseFile(F2); end; CloseFile(F1); end; Последний раз редактировалось Taras2020, 18.04.2018 в 22:42. |
#2
|
||||
|
||||
Код:
... s:= ExtractFilePath(Application.ExeName) + 'Folder' + IntToStr(i); if ForceDirectories(s) then.. {Появилась такая папка, туды и класть} ... Помогаю платно. Помогаю иногда бесплатно. |
Этот пользователь сказал Спасибо @Rafa3L за это полезное сообщение: | ||
Taras2020 (04.02.2018)
|