Как сделать ввод в окно Едит и вывод в лейбл? (простая прога на Delphi)

[Игрушка96]

давно не работала с графической формой,подскажите как правильно сделать ввод в окно Едит и вывод в лейбл?

var
  x,y:real;
begin
 x:=0;
 Edit1.Text:='';
  if x<>5 then
         begin
      y:=(x*cos(x)-x*sin(x))/(5-x);
         end;
     if y=0 then
          Showmessage('Y ðàâåí 0')
             else
      Label2.Caption:='Y='+FloatToStr(y);
end.

[GreenWizard]

думаю так вам нужно:

var
  x, y: real;
begin
  x := StrToFloatDef(Edit1.Text, MaxInt);
  if x <> MaxInt then
    begin
      if x <> 5 then
        begin
          y := (x * cos(x) - x * sin(x)) / (5 - x);
        end;
      if y = 0 then
        Showmessage('Y ðàâåí 0')
      else
        Label2.Caption := 'Y=' + FloatToStr(y);
    end
  else
    ShowMessage('Ввели хрень в едит');
end;

[Игрушка96]

спасибо большое)

[Игрушка96]

на Бегине программа тормозит....не пойму в чем ошибка...

[GreenWizard]

код в студию... можно и телепатически, но это будет много дольше

[Игрушка96]

Использовала код который вы подправили..на форме как вы поняли присутствует едит,в который должна вписывать инфу,и лейбл который должен выдавать результат...

var
  x, y: real;
begin
  x := StrToFloatDef(Edit1.Text, MaxInt);
  if x <> MaxInt then
    begin
      if x <> 5 then
        begin
          y := (x * cos(x) - x * sin(x)) / (5 - x);
        end;
      if y = 0 then
        Showmessage('Y ðàâåí 0')
      else
        Label2.Caption := 'Y=' + FloatToStr(y);
    end
  else
    ShowMessage('Ввели хрень в едит');
end;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

может Вы уже, расскажите нам

1) что Вы хотите добиться с помощью этого кода?! При чём здесь X<>MaxInt ?
и вообще, Вы понимаете разницу между целыми и вещественными числами?

2) данный код Вы куда поместили? На событие нажатия кнопки (Button1Click) ? или куда?

[Игрушка96]

Этот код должен решать уравнение по заданному х вот и все...да я знаю разницы между этими числами,но насчет МахИнта написала не я,а мне добавили уже тут на форуме...и да это операция описана в батоне

[Игрушка96]

Немного подправила и убрала макс инт...теперь проблема в том что он при любом значение х пишет (у равен 0)..то есть решение или ответ проскакивает...

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  x,y:real;
begin
 x:=0;
 Edit1.Text:='';
  if x<>5 then
         begin
      y:=(x*cos(x)-x*sin(x))/(5-x);
         end;
     if y<>0 then
            begin
        Label2.Caption:='Y='+FloatToStr(y)
             end
             else
          Showmessage('Y ðàâåí 0');
          end;
          end.

[Serge_Bliznykov]

что он при любом значение х пишет (у равен 0)..

при каком "ЛЮБОМ" ?!?!?

Вы свой код читать не пробовали!?

Давайте прочитаем его вместе:

 x:=0;  Присвоим X ноль (т.е. в переменной X будет ноль)
 Edit1.Text:=''; Обнулим текст в контроле ввода Edit1
  if x<>5 then  если X<>5 - входим в эту веточку. напоминаю, что в X у нас ноль!
    y:=(x*cos(x)-x*sin(x))/(5-x); y присвоить (0*cos(0) - 0*sin(0))/(5-0)
                                        y = (0 - 0)/5 - получаем НОЛЬ

очень сильно подозреваю, что Вы хотели внести X в переменную Edit1
попробуйте так:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  x,y:real;
begin
 x := StrToFloat( Edit1.Text );
  if x<>5 then
         begin
      y:=(x*cos(x)-x*sin(x))/(5-x);
         end;
.....