使多个长 度不一的字符串的长度相等

一批整型数值，   把它们转换成字符串后，   长度不相同，想在前面补0，请问如何实现，谢谢 问题点数：20、回复次数：3Top

1 楼lxpbuaa（桂枝香在故国晚秋）回复于 2003-09-01 22:02:03 得分 20

S   :=   StringOfChar('0',   100-Length(S))   +   S;   //假设都补长到100  
   
  ————————————————————————————————————  
  宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。  
  ————————————————————————————————————Top

2 楼huojiehai（海天子）回复于 2003-09-01 22:40:03 得分 0

procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
    s:   string;  
  begin  
      s   :=   '100';  
      Label1.Caption   :=   Copy('0000000000'+S,Length(S)   +   1,   MaxInt);//假设补到10位  
  end;Top

3 楼teli_eurydice（哭泣的仙人掌。。。。）回复于 2003-09-01 22:54:37 得分 0

FORMATTop

相关问题

• 字符串
• 长度
• 假设
• 云
• length

• 帖主：yuejun
• lxpbuaa

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