Курсовая работа: Разработка программы на языке Borland Object Pascal (Ide Borland Delphi)

lbRezultat.Font.Color:= clRed;

Exit;

end;

i:= pos(sLabelName+':' ,sFile);

if i=0 then

begin

lbRezultat.Caption:= 'Ошибка: Отсутствует переход на метку '+ sLabelName;

lbRezultat.Font.Color:= clRed;

Exit;

end;

inc(iKol);

i:= pos('goto ', sFile);

end;

if lbRezultat.Caption='' then

begin

lbRezultat.Caption:= 'Правильное задание '+ IntToStr(iKol)+ ' инструкций безусловного перехода';

lbRezultat.Font.Color:= clNavy;

end;

end;

end;

procedure TForm1.buCloseClick(Sender: TObject);

begin

Close;

end;

end.