Цитата:
|
Сообщение от Alegun
Верните всё на место и перенесите в локальную var секцию данной процедуры вот это
Код:
...
var
i: byte;
f: TextFile;
key: array[0..9] of byte;
... |
Спасибо, воспользовался TFileStream.
Дальше в проге ошибка в другом месте. Хочу прочитать файл до конца так что бы если файл не кратен 8 байтам, остальные байты обнулялись. пишу цикл
Код:
sizefile8:=filesize(OpenFile) div 8 + 1;
for ifile:= 0 to sizefile8 do //ОШИБКА ТУТ
begin //1
if ifile<sizefile8 then
for round:=0 to 7 do
begin //2
BlockRead(OpenFile,buf8,1);
b8in[round]:=buf8;
end //2
else begin //4
round:=filesize(openfile)-(sizefile8*8);
for s:=0 to round do
begin //3
BlockRead(OpenFile,buf8,1);
b8in[s]:=buf8;
end; //3
for s:=s to 7 do
begin
BlockRead(OpenFile,buf8,1);
b8in[s]:=buf8;
end;
end; //4
.............................
............................
...........................
end; //1
и при компиляции ошибка
[dcc32 Error] Unit1.pas(121): E2032 For loop control variable must have ordinal type