[Delphi] 문자열 형식 변경 - 숫자 좌우에 '0' 붙이기

숫자의 형식을 맞추기 위해 좌측이나 우측에 '0' 을 채워야 하는 경우에 사용.

 

ex 1. 123 -> 00123 =>        FillZero('123', 5, 0);

ex 2. 123 -> 1230 =>          FillZero('123', 4, 1);

 

	function FillZero(Src: String; 자릿수: Integer; 채울위치: Integer=0): String; const   LEFT  = 0;   RIGHT = 1;   var   tmpStr: String;   StrFormat: String;   begin   Result:=Src;     // 빈칸 제거   tmpStr:=Trim(Src);     // 자릿수 체크   if Length(tmpStr)>=자릿수 then Exit;     // 채울위치에 따라 자릿수만큼 빈칸으로 채움   if 채울위치=LEFT then StrFormat:='%*s'   else                  StrFormat:='%-*s';   tmpStr:=Format(StrFormat, [자릿수, tmpStr]);     // 빈칸을 0 으로 바꿔서 반환   Result:=StringReplace(tmpStr, ' ', '0', [rfReplaceAll]); end;