Как разбить файл?

← →
KDenis © (2003-04-13 18:47) [0]

Разбиваю файл следующим образом:
const
file1 = 400896; //Error.exe
file2 = 37986; //pict.bmp
file3 = 1486; //texts1.txt

...

var
Fi,dest:file;
buf:array of byte;

...

assignFile(fi,path+"files.dat");
reset(fi,1);
assignFile(dest,InstPath+"\error.exe");
reWrite(dest,1);
setLength(buf,file1);
BlockRead(fi,buf,file1); //I/O Error 998
BlockWrite(dest,buf,file1);
closeFile(dest);

...

closeFile(fi);

← →
kDenis © (2003-04-13 20:58) [1]

Я уже что-то нашел! Кому интерестно - идите сюда:
http://blackman.wp-club.net/myfaq/display.php?http://blackman.wp-club.net/myfaq/00102002.phpфакерразбить%20файл

(Это все один адрес)

глупостями не страдай...

BlockRead(fi,buf[Low(Buf)],file1);

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