Agregar ceros al pincipio de folio

[marcoszorrilla]

Aquí tienes un ejemplo que acabo de preparar, es para añadir ceros por la izquierda.

Código Delphi [-]
Function FillSpacesLeft(cVar:String;nLen:Integer):String;
 begin
 Result:=StringOfChar('0',nLen - Length(cVar))+cVar;
 end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=FillSpacesleft(Edit1.Text, 10);
end;

Un Saludo.

[jhonny]

Empezado por marcoszorrilla

Aquí tienes un ejemplo que acabo de preparar, es para añadir ceros por la izquierda.

Código Delphi [-]
Result:=StringOfChar('0',nLen - Length(cVar))+cVar;

Un Saludo.

Acabo de anotar esa función en la libreta de "Para no olvidar".

[jhonny]

La función que propuse quedo reducida a esto, gracias a marcos:

Código Delphi [-]
 
type
   TOrientacion = (toLeft, toRight);
 
Function PadString(cVar :String; Caracter :Char; nLen:Integer; Orientacion :TOrientacion):String;
begin
  if Orientacion = toLeft then
    Result:=StringOfChar(Caracter, nLen - Length(cVar))+cVar
  else
    Result:=cVar+StringOfChar(Caracter, nLen - Length(cVar));
end;

Y se puede usar asi, por ejemplo:

Código Delphi [-]
 
ShowMessage(PadString('12345', '0', 10, toLeft));
ShowMessage(PadString('12345', '0', 10, toRight));