Agregar digitos

[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