有没有添充空格的函数？

问题点数：20、回复次数：5Top

1 楼zswang（伴水清清)(专家门诊清洁工）回复于 2001-12-28 01:07:16 得分 5

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

2 楼thedream（梦幻使者）回复于 2001-12-28 01:12:19 得分 5

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

3 楼binb（）回复于 2001-12-28 01:16:49 得分 0

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

4 楼zswang（伴水清清)(专家门诊清洁工）回复于 2001-12-28 01:21:45 得分 10

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

5 楼chenjiong（准程序员:升级中....）回复于 2001-12-28 08:33:48 得分 0

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

相关问题

• 空格
• 加
• caption
• tobject
• procedure tform
• sender
• begin

• 帖主：binb
• zswang
• thedream
• zswang

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载