Платные хостинги     Раскрутка сайта     Книги по программированию

Ошибка - файл не найден, всю голову сломал уже :(

- Пишу прогу, суть которой - разделение файла на две части (в два разных файла)Код {Определяем длинну файла} i:=0; while not eof(f_in) do  begin   read(f_in,buf);   i:=i+1;  end; size:=i; c:=size div 2; reset(f_in); assign(f_out1,file_out1); rewrite(f_out1); for i:=0 to c do  begin   read(f_in,buf);   write(f_out1,buf);  end; close(f_out1); assign(f_out2,file_out2); rewrite(f_out2); while not eof(f_in) do  begin    read(f_in,buf);    write(f_out2,buf);  end; close(f_out2); close(f_in);highlightSyntax('delphiTBhZTd','delphi');выдает вторую ошибку в реале (файл не найден) Исходный файл существует точно и открывается reset'ом без ошибки. Я пробовал просто копировать файл - все окей, но когда копирую сначала в один а потом в другой - выдает эту ошибку =(Незнаю в чем проблема.

- 1. Зачем так длину определять?2. Какой тип buf3. А перед приведенным кодом какой код?4. Посмотрите функции BlockRead/BlockWrite - гораздо быстрее работать будут

- 1.Чтобы определить длину, незачем читать файл. Насколько я помню паскаль, FileSize там должна работать.2. Посмотри описание BlockRead - там есть пример копирования файла.3. Если файл f_in уже дошел до конца, то бесполезно из него читать дальше - получишь ошибку. Нужно его сначала на начало сбросить, а потом уже копировать во второй файл.

- Нашел ошибку С файлами все я правильно делал, там с именам глюки вышли.Всем спасибо!

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD