Скачать: CL | DM;

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

← →
Виталий   (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;
:)

---

← →
Fay ©   (2004-04-05 00:19) [3]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.231 c