crear funciones en delphi

[sonymix]

bueno si este puede funcionar pero mi funcion se declaro asi
Form1: TForm1;
function extenso (valor: real): string;
implementation
asi que tengo un problema de compatibilidad de type y trate de poner lo asi
edit2.text:=extenso(floattotext(edit1.text)); no me resulto

[ecfisa]

Empezado por sonymix

bueno si este puede funcionar pero mi funcion se declaro asi
Form1: TForm1;
function extenso (valor: real): string;
implementation
asi que tengo un problema de compatibilidad de type y trate de poner lo asi
edit2.text:=extenso(floattotext(edit1.text)); no me resulto

Perdón por la demora.

El problema de tipos te lo dá el manejo que haces del parámetro en la llamada a función.

La función extenso espera un número real como parámetro y vos le estás enviando un string al usar FloatToText.

Si la función está así declarada, lo correcto sería usarla así:

Código Delphi [-]
  Edit2.Text:= extenso(StrToFloat(Edit1.Text));

Tal como puso en su código el amigo Jac.

Saludos.

[delphi]

¿Cómo puedo transformar una función FDEX a un procedimiento?