Completar campo con zeros

[[Ohcan]]

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; 
//De tal forma que  
CompletarCon('Hola', '0', 6);  
//Devolvería 00Hola

Saludos