Agregar digitos

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