delphi代碼塊: PadL和PadR

發布自己常用的代碼塊, 同樣哈, 只適合新手. 估計老手手裡已經有一大堆了.

在做應用的時候,我們經常需要在一個字串前面或是後面補空格或0, 就是類似Oralce中PadL和PadR的功能, 比如取到的月份補2位,取到的單號補11位(前補0)等. 於是自己實現了這兩個小函數.

// copyright(c) hydonlee, 轉載請註明原址//向左邊補全, EX: PadL('123', 5, '0') ==> 00123function PadL(ASource: string; ALimit: Integer; APadChar: Char=' '): string;Var  i: Integer;begin  Result := ASource;  for i:=1 to ALimit-Length(Result) do  begin    Result := APadChar + Result;  end;end;// copyright(c) hydonlee, 轉載請註明原址//向右邊補全, EX: PadR('123', 5, '0') ==> 12300function PadR(ASource: string; ALimit: Integer; APadChar: Char=' '): string;Var  i: Integer;begin  Result := ASource;  for i:=1 to ALimit-Length(Result) do  begin    Result := Result + APadChar;  end;end;

 

copyright(c) hydonlee, 轉載請註明原址