Главная страница
    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
14-1081240265
icWasya
2004-04-06 12:31
2004.04.25
Goblins.exe


1-1081589386
KEBZ
2004-04-10 13:29
2004.04.25
ProgressBar1


1-1081428225
Russko
2004-04-08 16:43
2004.04.25
Копирование каталога


14-1080728471
syte_ser78
2004-03-31 14:21
2004.04.25
Вопрос к Харьковчанам (если тут такие есть)


1-1081086845
Serious Sam
2004-04-04 17:54
2004.04.25
Как вывести дату в другом формате?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский