Delphi PChar && String ³öÏÖµÄÎÊÌâ

function mf_AddZero_Righ(ShuJuP:PChar;ChangDu:Integer):PChar;
var
  restr:string;
  strlength,i:integer;
  ShuJu:string;
begin
  ShuJu:=strpas(ShuJuP);
  restr:=ShuJu;
  strlength:= Length(ShuJu);
  for i:= strlength to ChangDu-1 do
  begin
    restr:='0'+restr;
  end;
  Result:=PChar(restr);
end;
ÕâÀïÒ»¸öÍê³É×óÆð²¹Æë×Ö·û´®µÄ function £¬ÔÚ²âÊÔÖз¢ÏÖ
  .......
  mf_AddZero_Righ('3',9);
  .......
  µÃµ½µÄ½á¹ûÊÇ 000000003
  .......
  mf_AddZero_Righ('123456789',9);
  µÃµ½Êǽá¹ûÈ´ÊÇ 12345678
¸ßÊÖÃÇÕâÊÇÎÊʲôÄÄ £¿£¿£¿

---

ǧÍò²»Òª½«Õ»ÉϵÄÊý¾Ý×öΪº¯ÊýÊä³öµÄÊý¾Ý, Ò²¾ÍÊǾֲ¿±äÁ¿²»ÄÜÓÃÀ´Êä³ö, ÒòΪº¯Êý½áÊøʱ,Õ»Êý¾Ý¶¼»á±»¶í»ØÊÕ, ÄãÕâÀïµÄÒªÇóʵ¼ÊÉÏÓú¯Êý±íʾʵ¼ÊÉÏÊÇ
function ExtStrLen(const source: string; fillchar: Char; MaxLength: integer): string;
var
  len:Integer;
begin
  Result := source;
  len := MaxLength - Length(source);
  if Len > 0 then
    Result := StringOfChar(fillchar, len) + Result;
end;

µ÷ÓÃʱΪ ExtStrLen('1234', '0', 8) ×îºó½á¹ûÊÇ00001234

---

function mf_AddZero_Righ(ShuJuP:PChar;ChangDu:Integer):PChar;
var
  re