в чем ошибка

← →
lllll00 (2007-09-09 17:02) [0]

assignfile(l,"version.ini");
reset(l);

assignfile(k,"version.new");
rewrite(k);

n := 0;
seek(l,n);
while not eof(l) do
begin
blockread(l,buf,254);
n := n + 254;
seek(l,n);
buf[254] := byte(13);
buf[255] := byte(10);
blockwrite(k,buf,256);
end;

closefile(l);
closefile(k);

в итоге размер файла = 0

← →
Palladin © (2007-09-09 17:06) [1]

там же где и у Blast"а...

← →
IOs (2007-09-09 19:33) [2]

вопрос на засыпку:

сколько байт будет в вашем случае пытаться подчитывать оператор

blockread(l,buf,254);

подсказка - не 254.

Подсказка на три балла - а не 254 * 512 случайно?

Доп. вопрос - а что нужно делать?

Подсказка -
а может случайно писать вот так:
...
reset(l, 1);
...
rewrite(k, 1);

зы. ситуейшн, когда файл входной меньше за 254 байта сегодня не рассматриваем..

зы2. Так в чем ошибка собстенно? Имхо, в невнимательном чтении RTFM...

← →
Плохиш © (2007-09-09 20:16) [3]

> Подсказка на три балла - а не 254 * 512 случайно?

Нет

← →
DrPass © (2007-09-09 20:25) [4]

> > Подсказка на три балла - а не 254 * 512 случайно?
>
> Нет

...но общий ход мыслей - в правильном направлении

← →
Anatoly Podgoretsky © (2007-09-09 20:29) [5]

> DrPass (09.09.2007 20:25:04) [4]

Ну ошибся в четыре раза.

← →
IOs (2007-09-09 20:38) [6]

> ...но общий ход мыслей - в правильном направлении

я польщен....
> Ну ошибся в четыре раза.
может быть. влом было ставить эксперимент. или читать rtfm (особенно учитывая, то, что в даном случае - для меня чисто спортивный интерес)..
Тем более, что см. DrPass © (09.09.07 20:25) [4]
и тем более, что
.... ,1);

← →
DrPass © (2007-09-09 20:52) [7]

> .... ,1);

Жёсткие у тебя смайлики...
:)

← →
IOs (2007-09-09 20:56) [8]

:-)..

пс.. модчу, а то счас придет дядя Толя и намылит шею...

А чего надо было читать, размер блока по умолчанию 128 байт.

← →
IOs (2007-09-09 23:31) [10]

> А чего надо было читать, размер блока по умолчанию 128 байт

давно это было, в смысле, когда с этим сталкивался (размер блока по умолчанию). Очень давно...

в чем ошибка Найти похожие ветки