В маленькой программе-тесте написал следующую функцию:
Код:
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
fname:string;
begin
fname:=Paramstr(1);
if fname:=' '
then begin
ShowMessage('В командной строке запуска программы'+ #13 +' надо указать имя файла текста');
Application.Terminate;
end;
AssignFile(f,fname);
Try reset(f);
Except
on EInOutError do
begin
ShowMessage('Ошибка обращения к файлу текста:'+fname);
Application.Terminate;
end;
end;
readln(f,buf);
Form1.Caption:=buf;
for i:=1 to 8 do
begin
readln(f,buf);
mes[i]:=buf;
readln(f,buf);
level[i]:=StrToInt(buf);
end;
right:=0;
nq:=0;
NextQw;
end;
и вылезает такая ошибка
[Error] Unit1.pas(99): Statement expected but 'PROCEDURE' found
Помогите кто чем может...