:(

解决方案 »

  1.   

    你先将 s这个数组 for i:= 1 to 10 do 
                    s[i]:=' ';
    这样试试?
      

  2.   

    先赋初值为空格吧var
      mystr: array of char;
      i: integer;
    begin
      setlength(mystr,10);
      for i:= low(mystr) to high(mystr)
        mystr[i]= ' ';  //...
      //赋值
      //...
    end;
      

  3.   

    用语句控制
    while length(s) < 10 then
      s := s + ' ';
      

  4.   

    如果你在数据库中声明该字段为char类型就可以了,在你存入数据库时系统自动添加空格
    另外一种方法就是在程序中处理了。
      

  5.   

    var
      S: string;
    begin
      S := Format('%-10s', ['hyd']);
    end;这样S的长度为10。没有内容的用空格代替.