necesito una pequeña ayuda

[Robert01]

¿Como debe hacer para ingresar el nombre de una función, de las de la unit math, a través de un cuadro de tecto u otro control similar para que sea reconocida como una función?

al ingresar el nombre a mi me pone que es una string y no toma los valores para esa función: supongamos Ln(x).

Desde ya gracias a todos.

Una felíz navidad para todos!

[[Lepe]]

Lo que intuyes no puedes hacerlo rápidamente. Hay componentes para interpretar cadenas como expresiones matemáticas, quizás incluyan la función Ln y otras parecidas. Al menos en delphi (instalación estándar), no hay nada.

Para algo simple, puedes usar esto:

Código Delphi [-]
var texto, parametro:string
      posLn, pospar :integer; Posición del texto Ln y posición de los parámetros
texto := lowercase(trim(edit1.text)); // ejemplo: 'ln(367)'
PosLN =  pos ('ln(',texto);

if pos <>0 then
begin // es un logaritmo 
//Ahora con pos busca los parámetros
  parametro := texto;
  delete(parametro, posLN+3); // nos queda: '367)'
  pospar := pos(')', parametro) ;
  if pospar <>0 then
  begin
     parametro := copy(parametro, 1, pospar); // en parametro nos queda: '367'
     ResultadoDelLogaritmo := Ln(StrToInt(parametro));
  end;
end;

Otra opción es usar Expresiones regulares, busca en el foro por "RexExp" es algo más complejo, pero seguro que te sirve.



Saludos

[Robert01]

Hola lepe

Gracias por tu ayuda.

Voy a probar el código para ver si consigo ir adaptarlo a mis necesidades.

Felíz navidad si eres creyente y si no lo eres también porque creo que se festeja en gran parte del mundo.