Кнопка возведения в степень delphi

[merick]

как возвести в степень через эдиты?
у меня такой код, но пишет что ошибка
Edit3.text:=exp(FloattoStr(StrtoFlo at(Edit1.text)*ln(StrtoFloat(Edit2. Text)))

[Pavia]

Вы забыли.
FloatToStr

[merick]

Сообщение от Pavia

Вы забыли.
FloatToStr

Где? он же есть в начале

[min@y™]

{$TELEPATOR_MODE ON}

function TryEditsPower(EX, EY, EP: TEdit): Boolean;
var
  x, y, p: double;
begin
  Result:= TryStrToFloat(EX.Text, x) and TryStrToFloat(EY.Text, y);
  
  if Result
    then begin
           p:= power(x, y);
           EP.Text:= FloatToStr(p);
         end
    else EP.Text:= 'Error.';
end;

{$TELEPATOR_MODE OFF}

Ахтунг! Аттеншн! Внимание! Увага!!! SHIT-CODE detected!!! Не отлаживал, писал на заборе!

[Pavia]

Exp принимает на вход и выдаёт результат в виде чисел с плавающет точкой. А Edit.Text имеет тип строки. В паскале в отличии от бесика вы должны сами приводить типы.

Edit3.text:=FloattoStr(exp(StrtoFloat(Edit1.text)*ln(StrtoFloat(Edit2.Text)))

Лучше переписать.

a:=StrtoFloat(Edit1.text);
b:=StrtoFloat(Edit2.text)
c:=Exp(a*Ln(b));
Edit3.Text:=FloatToStr(c);