Yo he ceado una funcion como esta, no se si esta obtimizada pero funciona.
Function LlenarCeros(Original: String; long: Integer): String;
var x : integer;
Temp : String;
begin
Temp := '';
For X := 1 to Long-Length(Original) do
Temp:= '0' + Temp;
LlenarCeros := Temp + Original;
end;
|