Не могу найти ошибку в коде

[afirat]

Statement expected but 'procedure' found - такая ошибка

function f(x,a:real):real; 
begin 
if x<=0 then f:=sqrt(sqrt(sqr(x-1)))-a; 
if (0<x)>a then f:=(3*sin(2*a*x+3.14)-sin(3*(2*a*x+3.14)))/4; 
end; 

procedure TL2_Levchenko.Edit1Enter(Sender: TObject); 
begin 
Edit3.Visible:=False; 
end; 

procedure TL2_Levchenko.Edit2Enter(Sender: TObject); 
begin 
Edit3.Visible:=False; 
end; 

procedure TL2_Levchenko.Edit1Exit(Sender: TObject); 
begin 
if Edit1.Text<>'' then 
try 
StrToFloat(Edit1.Text); 
except 
ShowMessage('Введено неверное значение A'); 
Edit1.SetFocus; 
end; 

РУГАЕТСЯ НА ЭТОТ УЧАСТОК ----------------------------
procedure TL2_Levchenko.Edit2Exit(Sender: TObject); 
begin 
if Edit2.Text<>'' then 
try 
StrToFloat(Edit2.Text); 
except 
ShowMessage('Введено неверное значение Х'); 
Edit2.SetFocus; 
end; 
-----------------------------------------------------------------------
procedure TL2_Levchenko.Button1Click(Sender: TObject); 
begin 
Edit3.Visible:=True; 
Edit3.Text:=FloatToStr(f(StrToFloat(Edit1.Text), 
StrToFloat(Edit2.Text))); 
end; 
end.

[Ezhik Kihze]

Не могу найти ошибку в коде

А вы пытались? Открываете учебник и узнаете, что есть конструкция try...except... end, так же там можно узнать, что для begin в начале процедур тоже хотелось бы end... А теперь считаем енды.

[Shouldercannon]

function f(x,a:real):real;
begin 
  if x<=0 then f:=sqrt(sqrt(sqr(x-1)))-a;
  if (0<x)>a then f:=(3*sin(2*a*x+3.14)-sin(3*(2*a*x+3.14)))/4;
end; 

procedure TL2_Levchenko.Edit1Enter(Sender: TObject); 
begin 
  Edit3.Visible:=False;
end; 

procedure TL2_Levchenko.Edit2Enter(Sender: TObject); 
begin 
  Edit3.Visible:=False;
end; 

procedure TL2_Levchenko.Edit1Exit(Sender: TObject); 
begin 
  if Edit1.Text<>'' then
  try
    StrToFloat(Edit1.Text);
  except
    ShowMessage('Введено неверное значение A');
    Edit1.SetFocus;
  end;
end;

procedure TL2_Levchenko.Edit2Exit(Sender: TObject); 
begin 
  if Edit2.Text<>'' then
  try
    StrToFloat(Edit2.Text);
  except
    ShowMessage('Введено неверное значение Х');
    Edit2.SetFocus;
  end;
end;

procedure TL2_Levchenko.Button1Click(Sender: TObject); 
begin 
  Edit3.Visible:=True;
  Edit3.Text:=FloatToStr(f(StrToFloat(Edit1.Text),
  StrToFloat(Edit2.Text)));
end;

end.

[Serge_Bliznykov]

Shouldercannon, и что?!...

я так понимаю, что всё получилось?

[Shouldercannon]

Serge_Bliznykov
На этот вопрос может ответить только автор темы.

[Ezhik Kihze]

Ваш пост к чему был? Или вы онлайн-решатель?

[Человек_Борща]

2 бала за невнимательность всем отписавшимся
Shouldercannon уже ответил , а вы там и исправление не заметили
синтаксическая ошибка это. И да, try except их не ловит. Внимательнее надо быть.

procedure TL2_Levchenko.Edit1Exit(Sender: TObject); 
begin 
if Edit1.Text<>'' then 
try 
StrToFloat(Edit1.Text); 
except 
ShowMessage('Введено неверное значение A'); 
Edit1.SetFocus; 
end; 
end;

РУГАЕТСЯ НА ЭТОТ УЧАСТОК ----------------------------
procedure TL2_Levchenko.Edit2Exit(Sender: TObject); 
begin 
if Edit2.Text<>'' then 
try 
StrToFloat(Edit2.Text); 
except 
ShowMessage('Введено неверное значение Х'); 
Edit2.SetFocus; 
end; 
-----------------------------------------------------------------------

Пользуйтесь CnPack =)

[Ezhik Kihze]

2 бала за невнимательность всем отписавшимся

В первую очередь относится к вам.

Shouldercannon уже ответил , а вы там и исправление не заметили

До него я уже ответил и все спрашивали про безсмысленность его поста, а не кода.

синтаксическая ошибка это. И да, try except их не ловит.

С чего у вас родилась мысль, что трай там для отловки этой ошибки???

Пользуйтесь CnPack =)

Воспользуйтесь и узнаете, что вы испраили только один участок...