求助：关于字符串处理的问题

Question

function xixi(var s:string):string;
begin
  if length(s)=1 then
  s:='0'+s;
  result:=s;
end;

Answer 1

uses 加上 StrUtilsprocedure TForm1.FormCreate(Sender: TObject);
begin
    self.Caption := RightStr('0000' + 'a', 2);
end;end.

Answer 2

formatfloat('00',你要转换的数据);

Answer 3

转换前是什么类型?
字符串:用 zjj_horse的;
数值用:用 netlib的.
整数:Format('%2.2d',[intVal])
playyuer的方法有危险:
当转换前的字符串长度大于2时...