Amigo Jac Fcc, le aconsejo que utilize las etiquetas que corresponda, ya que facilita la lectura y comprension del codigo que escribe.
Cita:
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
cadena := InputBox('Titulo', 'Nombre', '');
EdtDescripcion.Text:=TraduceALetras(cadena);
end;
Saludos cordiales