Problema al evaluar una expresión matemática
Saludos. Estoy buscando un metodo sencillo para evaluar una expresion matematica, por ejemplo, en un formulario con un TLabel y un TButton y añadiendo Math a uses, tengo:
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Label1.Caption:=floattostr(23/7+sqrt(2));
end;
Y funciona correctamente. Sin embargo lo que quiero es que el usuario introduzca su propia expresion para envaluar. Añado un TEdit y pongo:
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
s:=form1.Edit1.Text;
form1.Label1.Caption:=floattostr(s);
end;
Dandome error. ¿Alguna sugerencia?.
Gracias.
|