Rellenar con ceros (0)

[egarc]

Estuve leyendo en el foro (despues de haber dejado el mensaje), y encontre la funcion que hace exactamente lo quiero.

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

y luego para usarla en un boton o en lo que quieras

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
 Edit2.Text:= FillSpaces(Edit1.Text, 8);
end;

esto funciona NITIDO, la foma de guardar en VARCHAR, ya que los ceros a la izquierda en un campo numérico no sirven

Gracias por leer!!!