crear funciones en delphi

[sonymix]

saludo todos. tengo un funcion que puede traducir en letras, los numero que introdusco en un campo de moneda. Ahora bien necesito saber como puedo emplealo para que cuando dijite el numero en un edit al salir para despliegue su valor en letra en otro edit.



gracias

[ecfisa]

Hola sonymix.

Suponiendo que la función sea:

function NumALetras(const Num: string): string;

Y el TEdit donde escribís los números se llame Edit1, podés usar el evento OnExit de Edit1 para llamar a la función y asignar el resultado a EDit2.
( Supongamos que así se llama el otro edit ).


Estando seleccionado Edit1, en el Object inspector, events, haciendo doble click sobre el evento OnExit:

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  Edit2.Text:= NumALetras(Edit1.Text);
end;

No dudes en poner cualquier duda.

Saludos.

[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?

[Jac fcc]

Espero entender tu comentario :
quieres usar tu funcion para que lo escrito en un edit se pase a otro pero con las palabras, por ejemplo 115 se pasará como: ciento quince.
¿En el edit que ingresas números ya tienes el filtro para no aceptar caracteres?
Parto del hecho de que hasta que cierres el edit donde ingresas datos numericos se copien los caracteres al edit de caracteres (¿a eso te refieres con: 'al salir'?) .
hay varias formas, se me ocurre:
procedure TForm_Turno.Button1Click(Sender: TObject);
var
cadena:string;
begin
{uso input, podria ser cualquier otra funcion que devuelva una cadena
y que tenga filtro para aceptar solo digitos
}
cadena := InputBox('Titulo', 'Nombre', '');
{uso tu funcion para convertir la cadena de numeros a letras
y se asigna al campo text
}
EdtDescripcion.Text:=TraduceALetras(cadena);
{siempre y cuando sea una funcion que regrese la cadena convertida.
Si es un procedimiento se necesita crear una variable tipo String para ser pasada por parámetros y asi conservar el valor cambiado:
TraduceALetras(CadenaOriginal,CadenaEnLetra)}
end;
si no es la idea, sorry

[cloayza]

Amigo Jac Fcc, le aconsejo que utilize las etiquetas que corresponda, ya que facilita la lectura y comprension del codigo que escribe.

Empezado por Jac fcc

procedure TForm_Turno.Button1Click(Sender: TObject);
var
cadena:string;
begin
{uso input, podria ser cualquier otra funcion que devuelva una cadena
y que tenga filtro para aceptar solo digitos
}
cadena := InputBox('Titulo', 'Nombre', '');
{uso tu funcion para convertir la cadena de numeros a letras
y se asigna al campo text
}
EdtDescripcion.Text:=TraduceALetras(cadena);
{siempre y cuando sea una funcion que regrese la cadena convertida.
Si es un procedimiento se necesita crear una variable tipo String para ser pasada por parámetros y asi conservar el valor cambiado:
TraduceALetras(CadenaOriginal,CadenaEnLetra)}
end;
si no es la idea, sorry

Cual se ve y comprende mejor?...

Código Delphi [-]
procedure TForm_Turno.Button1Click(Sender: TObject);
var
  cadena:string;
begin
 {uso input, podria ser cualquier otra funcion que devuelva una cadena
 y que tenga filtro para aceptar solo digitos
 }
 cadena := InputBox('Titulo', 'Nombre', '');
 {uso tu funcion para convertir la cadena de numeros a letras
 y se asigna al campo text
 }
 EdtDescripcion.Text:=TraduceALetras(cadena);
{siempre y cuando sea una funcion que regrese la cadena convertida.
Si es un procedimiento se necesita crear una variable tipo String para ser pasada por parámetros y asi conservar el valor cambiado:
      TraduceALetras(CadenaOriginal,CadenaEnLetra)}
end;

Saludos cordiales