Delphi给字符串补零

Delphi给字符串补零

function AddZero(str: string; num: integer):string;
var
  i:integer;
  temp:string;
begin
  if num<=0 then
  begin
    Result:= str;
    exit;
  end;

  for i := 1 to num do
  begin
    temp:= temp + '0';
  end;

  Result:= str + temp;
end;