Проблемы с blockwrite.

← →
guitarist © (2006-06-27 18:30) [0]

Проблемы с blockwrite.
Здравствуйте, объясните, пожалуйста, в чем проблема
Вот кусок кода
while(not(eof(fil))) do begin blockread(fil,x,1); r:=random(119-48)+48; blockwrite(efil,chr(r),1); (1) blockwrite(efil,x,1); end;

При запуске строка (1) вызывает ошибку Variable required. Притом даже если написать так blockwrite(efil,#49,1); то будет ошибка

← →
Zeqfreed © (2006-06-27 18:35) [1]

> [0] guitarist © (27.06.06 18:30)

А почему в BlockRead используется fil, а в BlockWrite — efil. И вообще, как они объявлены?

← →
begin...end © (2006-06-27 18:37) [2]

> guitarist © (27.06.06 18:30) [0]

> blockwrite(efil,chr(r),1);

BlockWrite(efil, r, 1)

← →
gitarist (2006-06-27 19:44) [3]

begin...end, спасибо, что-то я стормозил (и ord, и chr пробовал)
Да и Zeqfreed спасибо за участие

> gitarist (27.06.06 19:44) [3]
> begin...end, спасибо, что-то я стормозил (и ord, и chr пробовал)

Хорошо, если действительно понял, в чём был не прав!

Проблемы с blockwrite. Найти похожие ветки