Ver Mensaje Individual
  #9  
Antiguo 12-02-2015
maxzama maxzama is offline
Miembro
NULL
 
Registrado: jun 2011
Posts: 126
Reputación: 16
maxzama Va por buen camino
Hola, nuevamente.

// e intentado varias veces y no e encontrado hacer lo siguiente:

Como puedo agregar los 0 al contrario. Es decir agregar lo cero a la derecha...


Ej:

Código Delphi [-]
Regla a cumplir: cad= 10 dígitos;

cad:123

imprima en pantalla 1230000000

Este es el siguiente código(Se que son, para reírse o llorar ):

n:=StringOfChar(' ',11)

while not (Length(n)=cad) do
begin
      cad:=cad+'0';
      next;
end;

espero sus respuesta por favor y gracias...
Responder Con Cita