delphi中到底如何换行？

Question

1.memo1中的换行符是什么？
2.如何将数字1~1000转为00001~01000这种样式？？？？

Answer 1

1.用#13#10
2.
var
  x: integer
begin
  x := 1000;
  showmessage(format('%.6d',[x]));

Answer 2

#13
hehe ~~
别个写的给你看哈 好象不难呀，随便写一个吧//注范围只能在0到999呀，别情况你自已想吧
function FormatInt(i:integer):String;
begin
  Result:=IntToStr(i);
  case Length(Result) of
    1:Result:='00'+Result;
    2:Resutt:='0'+Result;
  end;  
end;

Answer 3

多谢各位！to:coreblood(菜码) 
不用这么麻烦啦
一行搞定！
result:=stringOfChar('0',n-length(v))+v;即可
其中n为位数；v为数字字符