又是时间分解的简单问题

Question

function otw(i:integer):string;
begin
  if i < 10 then    //总是觉得自己的这个函数不伦不类的
    result:='0'+inttostr(i)  //'3'--->'03'
  else
    result:=inttostr(i);  //'11'--->'11'
end ;

Answer 1

这和我那个差不多呀！！
记得以前在csdn看过别人用一个语句就实现了，只是现在记不起来,所以才来问的:]
我是想知道更简单的办法或者现成的函数等

Answer 2

定制ShortFormatString变量的值。
具体设置看帮助。

Answer 3

S := FormatDateTime('dd,mm,yyyy',StrToDateTime('95-11-11'));

Answer 4

算了，大家没有明白我的意思，不过分还是要散的:]
我是想把decodedate(date,y,m,d)分解出来的变量m(月份)始终保持两位！！！！！！
不用别的方法，比如formatdatetime等等。
我自己的函数是能解决问题的，只是觉得不太好,想知道更简单的办法或者现成的函数等