Расчеты в дэлфи

[Олег093]

Всем привет! Делаю программу расчета редуктора. Возникла проблема.Необходимо при введении Значения в Edit1 и Edit5 получить с помощью расчета по формуле значение в Edit2. Можно кусочек текста реализации сей причуды? Картинка во вложении.

[ATL]

var x, y, result: real;

x := StrToFloat(Edit1.Text);
y := StrToFloat(Edit5.Text);
result := (x + y) * 2; 
Edit2.Text := FloatToStr(result);

[Олег093]

А вот еще вопрос, как сделать так, чтобы не выводилась ошибка при вводе в Edit1, что окно edit5 пустое?

[Stilet]

if not TryStrToFloat(Edit5.Text,y) then begin
 ShowMessage('Там не число'); exit;
end;

[Олег093]

Почему то не хочет компилировать, выделяет строку if not TryStrToFloat(Edit5.Text,y) красным цветом, я закинул этот код в edit5.

[type_Oleg]

Олег093, а что пишет внизу в сообщениях об ошибке ?
И где у вас код? Покажите именно ту процедуру, где TryStrToFloat(Edit5.Text,y). Начиная с procedure TForm1. и т д.

[Олег093]

procedure TMainForm.Exit1Click(Sender: TObject);
begin
Close;
end;

procedure TMainForm.N2Click(Sender: TObject);
begin
MessageDlg('Àâòîìàòèçèðîâàííûé 
ðàñ÷åò îäíîñòóïåí÷àòîãî 
÷åðâÿ÷íîãî ðåäóêòîðà
'#13#10'© 2014 ÂîëãÃÒÓ'#13#10'Àâòîð: 
Ìóøêèí Î.Â.'#13#10'Âåðñèÿ 1.00'
,mtInformation, [mbOK],0);
end;

procedure TMainForm.N3Click(Sender: TObject);
begin
close;
end;

procedure TMainForm.Edit1Change(Sender: TObject);
var x,y,result:real;
begin
x:=StrToFloat(Edit1.Text);
y:=StrToFloat(Edit5.Text);
result:=x/y;
Edit2.Text:=FloatToStr(result);
if not TryStrToFloat(Edit1.Text,x) then begin
ShowMessage('Òàì íå ÷èñëî'); exit;
end;
end;

procedure TMainForm.Edit5Change(Sender: TObject);
var x,y,result:real;
begin
x:=StrToFloat(Edit1.Text);
y:=StrToFloat(Edit5.Text);
result:=x/y;
Edit2.Text:=FloatToStr(result);
if not TryStrToFloat(Edit5.Text,y) then begin
ShowMessage('Òàì íå ÷èñëî'); exit;
end;
end;

procedure TMainForm.Edit37Change(Sender: TObject);
var x1,y1,result1:real;
begin
x1:=StrToFloat(Edit1.Text);
y1:=StrToFloat(Edit37.Text);
result1:=(y1*30000/3.14/x1);
Edit3.Text:=FloatToStr(result1);
end;

procedure TMainForm.Edit34Change(Sender: TObject);
var x2, result2:real;
begin
x2:=StrToFloat(Edit34.Text);
result2:=x2*5.5;
Edit37.Text:=FloatToStr(result2);
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin

end;

end.

[type_Oleg]

Вместо

 var x,y,result:real;

вот это

 var x,y,result:Extended; // потому что так в описании TryStrToFloat для y. Можно Double

И TryStrToFloat(Edit5.Text,y) - это вместо y:=StrToFloat(Edit5.Text)
Наверное, и с x надо то же самое ?

[Stilet]

потому что так в описании TryStrToFloat для y. Можно Double

А это кстати не имеет значения, ибо компилятор все равно real за double посчитает.

type_Oleg

У тебя случайно нет паяльника под рукой? Похоже текст ошибки из автора придется добывать ректально-анализационными методами.

[Олег093]

[Фатальная ошибка] Project1.dpr(6): Could not compile used unit 'Unit1.pas'