delphi代码块: PadL和PadR

发布自己常用的代码块, 同样哈, 只适合新手. 估计老手手里已经有一大堆了.

在做应用的时候,我们经常需要在一个字串前面或是后面补空格或0, 就是类似Oralce中PadL和PadR的功能, 比如取到的月份补2位,取到的单号补11位(前补0)等. 于是自己实现了这两个小函数.

// copyright(c) hydonlee, 转载请注明原址
//向左边补全, EX: PadL('123', 5, '0') ==> 00123
function 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') ==> 12300
function 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, 转载请注明原址