有没有添充空格的函数？

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := Format('%10s', [Edit1.Text]);
//                    ~~字符宽度
end;

Answer 1

length();加循环，可以实现不同位置（前面，后面）加空格

Answer 2

thank you
直接加空格呢？
我要放在中间！

Answer 3

procedure TForm1.FormCreate(Sender: TObject);
var
  S: string;
begin
  S := '1234567890';
  Insert(' ', S, 3);
  Caption := S;
end;

Answer 4

binb()　分多问题多，我都　回答了近十个了。：）