Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Impresión
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #2  
Antiguo 16-05-2007
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
¡Qué cosa más rara! Pero si he entendido bien, esta función te puede servir:

Código Delphi [-]
function NumeroADigitos(N:Integer): String;
const
  Digitos: array[0..9] of String = (
    'cero', 'uno', 'dos', 'tres', 'cuatro',
    'cinco', 'seis', 'siete', 'ocho','nueve'
  );

var
  S: String;
  D, I: Integer;

begin
  S := IntToStr(N);
  for I := 1 to Length(S) do
  begin
    D := StrToInt(S[i]);
    Result := Result + Digitos[D] + ' ';
  end;

  Result := Trim(Result);
end;

// Saludos
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
separar fecha mauilore Firebird e Interbase 3 19-07-2006 21:46:09
Separar los reportes de la aplicacion Carlos Arevalo Impresión 9 25-08-2005 19:50:39
Separar Cadenas ronson Varios 2 25-07-2005 18:01:46
Buscar cadena dentro de otra cadena doverzhoff Varios 4 27-01-2004 05:27:15
Separar Formularios Charcab Varios 0 30-08-2003 23:17:32


La franja horaria es GMT +2. Ahora son las 20:39:45.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi