怎样产生动态长度的空格，我用的是这样的：

Question

我想产生inttostr(length(ls_blanks)空格的，怎么不行呀
 还有有没有产生空格的函数。谢谢
    在线！

Answer 1

for li_for:=1 to 16-length(ls_sl)-length(ls_ml) do
      ls_blanks:=ls_blanks+' ';

Answer 2

No.1 Format()
  Caption := '[' + Format('%*s', [10, '']) + ']'; //十个空格No.2 DupeString() for Delphi6
  Caption := '[' + DupeString(10) + ']'; //十个空格

Answer 3

为何要去掉ls_blanks:='';
  我不懂得？

Answer 4

S := StringOfChar('A', 10);这时 S= 'AAAAAAAAAA'.

Answer 5

ls_blanks:='';????应该是ls_blanks:=' ';吧

Answer 6

你的代码我看不懂:
ls_sl和ls_ml是什么究竟要产生多少空格?(inttostr(length(ls_blanks)是个字符串,不是数字).
产生N个空格的方法是:
StringOfChar(' ',N);

Answer 7

同意楼上的说法，我这里有完整的代码，抄过去就可以用了。function RepeatChar(ch: char; N: integer): String;
begin
  Result := StringOfChar(ch, N);
end;// 产生N个空格
function Space(N: integer): String;
begin
  Result := RepeatChar(' ', N);
end;

Answer 8

你的代码问题出在ls_blanks:=ls_blanks+''一句上,ls_blanks被加上了一个"空串"而不是空格结果ls_blanks没发生变化.

Answer 9

var str:array of char;
    N:integer;
begin
  SetLength(Str,N); //产生N个空间。  
  FillChar(S, M, Ord(' '));//产生M个空格。（N>=M)
end;
来迟了。 ：（
如果str 是字符串。 
那么
var str:string;
begin
  str:=StringOfChar(' ', M);//产生M个空格。
end;

Answer 10

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
s:=' ';
while length(s)<>10 do begin
   s:=s+' ';
end;
showmessage(inttostr(length(s)));end;

Answer 11

是为了格式对齐吗？如果这样可以使用Format函数