Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.04.25;
Скачать: [xml.tar.bz2];

Вниз

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

 
Виталий   (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 вся ветка

Форум: "Основная";
Текущий архив: 2004.04.25;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.034 c
1-1081186012
KommandorDi
2004-04-05 21:26
2004.04.25
Освобождение памяти, занятой динамически созданным объектом


3-1080194959
denmin
2004-03-25 09:09
2004.04.25
Проблема с ADOTable.


14-1080798965
MBo
2004-04-01 09:56
2004.04.25
Тенденции...


1-1081261350
killer
2004-04-06 18:22
2004.04.25
TStrings


6-1077394335
denkop
2004-02-21 23:12
2004.04.25
while ... do Socket.Open; Socket.SendText( hello world );





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский