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