Agregar digitos

[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

[[nlsgarcia]]

Daniel,

Empezado por ecfisa

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

Nelson.

[[ElKurgan]]

Empezado por 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:

De hecho, si además le pasas otro parámetro "const Carácter: Char" puedes concatenar cualquier tipo de dígito o carácter alfanumérico:

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

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

Y su uso, por ejemplo:

Código Delphi [-]
Label1.Caption:= AddChars('13245',17, '*', zLeft);

Saludos