cambio de numero a letras
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
|