我想问一个FORMAT STRING

Question

我想用到一个格式化字符串，就是有一个长度为8的字符串，读入一数字，如1，则格式为00000001,123456则00123456，用程序写代码我是写出来了，但是，嫌不精简，看到有FORMAT STRING的函数，有谁能告诉我怎么来实现他。

Answer 1

ShowMessage(Format('%.8d', [1]) );

Answer 2

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
      Edit1.Text:=copy('00000000',1,6-Length(Edit1.Text))+Edit1.Text;
    end;
end;

Answer 3

Edit1.Text:=copy('00000000',1,8-Length(Edit1.Text))+Edit1.Text;