怎么样加空格字符串？

Question

有没有空格字符串函数
由于要对齐格式，需要根据edit.text的长度自动地在其后面增加n个空格字符串。
怎么样处理？
s:sting;
s:=edit1.text+空格函数+edit2.text

Answer 1

这是我自己写的函数,可能有语法错误,你参考参考
procedure space(n:integer,var str:string);\\其中n为空格数,str为字符串
var  i:integer;
begin
    for i:=1 to n do
      begin
         str:=str+' ';
      end;
end

Answer 2

function alignit(edit:tedit;var s:string):integer;
begin
  result:=0;
  while edit.canvas.textwidth(s)<=edit.clientwidth-edit.canvas.textwidth(' ') do
  begin
    s:=s+' ';
  end;
end;

Answer 3

function alignit(edit:tedit;var s:string):integer;
begin
  result:=0;
  while edit.canvas.textwidth(s)<=edit.clientwidth-edit.canvas.textwidth(' ') do
  begin
    s:=s+' ';
    inc(result);//刚才忘了。不好意思^^
  end;
end;

Answer 4

制表符为: #9
不是\t, C中才是\t