|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
ошибка при компиляции
Кусок кода, где создается файл F и в него записываются случайные числа. при компиляции ошибка
[dcc32 Error] Unit1.pas(86): E2066 Missing operator or semicolon ругается именно на CloseFile(f); Код:
procedure TForm1.Button1Click(Sender: TObject); var x16,x161:byte; toEdit2:string; begin randomize; AssignFile(f, 'key.txt'); rewrite(f); Edit2.Text:=''; for i:=0 to 9 do begin key[i]:=random(255); writeln(f, key[i]); //отображение ключа в 16-ричной системе -> x16:=key[i] div 16; x161:=key[i] mod 16; if (x16 < 10) then toEdit2:=inttostr(x16) else case x16 of 10: toedit2:='A'; 11: toedit2:='B'; 12: toedit2:='C'; 13: toedit2:='D'; 14: toedit2:='E'; 15: toedit2:='F'; end; if (x161 < 10) then toEdit2:=toedit2 + inttostr(x161) else case x161 of 10: toedit2:=toedit2 + 'A'; 11: toedit2:=toedit2 + 'B'; 12: toedit2:=toedit2 + 'C'; 13: toedit2:=toedit2 + 'D'; 14: toedit2:=toedit2 + 'E'; 15: toedit2:=toedit2 + 'F'; end; Edit2.Text:=Edit2.Text + '$' + toedit2 + ' '; end; // <- отображение ключа в 16-ричной системе closefile(f); end; Последний раз редактировалось Admin, 21.05.2014 в 19:30. |