Function FullZero(s:String;lon:Integer):String; Overload
Function FullZero(s:Int64;lon:Integer):String; Overload
Function FullZero(s:String;lon:Integer):String; Overload
Var
t : String[255];
Begin
t := StrRepli('0',lon)+trim(s);
t := Copy(t,Length(t)-lon+1,lon);
Result := t;
End;
Function FullZero(s:Int64;lon:Integer):String; Overload
Begin
Result := FullZero(IntToStr(s),lon);
End;
Function StrRepli(c:Char;lon:Integer):String;
Var
s : String[255];
Begin
If Lon < 0 then lon := 0;
If Lon > 255 Then Lon := 255;
FillChar(s,SizeOf(s),c);
SetLength(s,Lon);
Result := s;
End;