Hola (Cuanto tiempo sin postear...)
A mi se me ha ocurrido esta funcion:
Código Delphi
[-]
function CompletarCon(TextoACompletar: String; CompletarCon: Char; LongitudTotal: Integer): String;
var
I:Integer;
begin
if LongitudTotal>Length(TextoACompletar) then
for I := 1 to LongitudTotal-Length(TextoACompletar) do
TextoACompletar := CompletarCon + TextoACompletar;
Result := TextoACompletar;
end;
CompletarCon('Hola', '0', 6);
Saludos