Agregar digitos

[maxzama]

Asi es: Casimiro Notevi.

jajaja.

Te entiendo Casimiro Notevi. Se que no muestro mis código(al hacer las preguntas), pero antes de hacer una pregunta, leo bastante.

Y así es como entiendo, de cada código que me muestran(aunque sea un código sencillo).

[Casimiro Noteví]

Bueno, está bien que aprendas, de eso se trata

[[nlsgarcia]]

maxzama,

Empezado por maxzama

...antes de hacer una pregunta, leo bastante...

Revisa esta información:

Libros y tutoriales para aprender Delphi

Espero sea útil

Nelson.

[maxzama]

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...

[maxzama]

gracias, nlsgarcia. (ya tengo conque, para perder el tiempo)...

[[nlsgarcia]]

maxzama,

Empezado por maxzama

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

Revisa este código:

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
var
   LenStr : Integer;
   AuxStr : String;
   i : Integer;

begin

    AuxStr := Edit1.Text;

    LenStr := Length(AuxStr);

    if LenStr > 11 then
       raise Exception.Create('Longitud Máxima de Variable es 11');

    for i := 1 to LenStr do
       if not (AuxStr[i] in ['0'..'9']) then
          raise Exception.Create('Solo se Permiten Caracteres Númericos');

    if LenStr < 11 then
       AuxStr := Edit1.Text + StringOfChar('0', 11-LenStr);

    ShowMessage(AuxStr);

end;

El código anterior en Delphi 7 sobre Windows 7 Professional x32, permite rellenar con 0 a la derecha una cantidad numérica de máximo 11 dígitos y muestra el resultado.

Espero sea útil

Nelson.

[maxzama]

gracias, disculpa la molestia.

lo tenia en mis narices:

Código Delphi [-]
AuxStr := Edit1.Text + StringOfChar('0', 11-LenStr);

Código Delphi [-]
He := h+StringOfChar ‎('0',10-length(h));

[ecfisa]

Hola maxama.

Y para redondear la cosa, podés unificar las acciones en una sola función que reciba como parámetro una cantidad arbitraria de ceros:

Código Delphi [-]
type
  TZeroCourse = (zLeft, zRight);

function AddZeros(const cifra: string; const zeros: Integer;
  Course: TZeroCourse): string;
begin
  if Course = zLeft then
    Result:= StringOfChar('0', zeros - Length(cifra)) + cifra
  else
    Result:= cifra + StringOfChar('0', zeros - Length(cifra));
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption:= AddZeros('13245',17, zLeft);
  Label2.Caption:= AddZeros('12345',15, zRight);
end;

Saludos