dbgrideh中如何将小数显示为百分比？？

dbgrideh中如何将小数显示为百分比？？大家不要说floattostr，因为我的这个字段为了避免麻烦和出错，必须是数字型的，不能为字符型，我看见有个displayformat属性，我设置为"0.00%"结果是不正确的，有没有人知道应如何设置？？ 问题点数：20、回复次数：4Top

1 楼dycll（dyc）回复于 2003-09-03 23:15:48 得分 0

计算字段应如何设置呢？Top

2 楼lxpbuaa（桂枝香在故国晚秋）回复于 2003-09-03 23:38:28 得分 10

在该字段的OnGetText事件中写如下代码：  
   
  procedure   TForm1.Table1FreightGetText(Sender:   TField;   var   Text:   String;  
      DisplayText:   Boolean);  
  begin  
      Text   :=   FloatToStr(Sender.AsFloat   *   100)   +   '%';  
  end;  
   
  —————————————————————————————————  
  宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。  
  —————————————————————————————————  
  Top

3 楼dycll（dyc）回复于 2003-09-04 22:06:25 得分 0

Thank   You，但如何能使计算字段的结果保存为小数点后两位呢？？比如：2.75%，有些字段结果很长，不需要这么多该怎么办？？Top

4 楼lxpbuaa（桂枝香在故国晚秋）回复于 2003-09-04 23:33:45 得分 10

procedure   TForm1.Table1FreightGetText(Sender:   TField;   var   Text:   String;  
      DisplayText:   Boolean);  
  begin  
      Text   :=   FloatToStr(Round(Sender.AsFloat   *   10000)/100)   +   '%';  
  end;  
   
  —————————————————————————————————  
  宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。  
  —————————————————————————————————Top

相关问题

• 字段
• floattostr
• 云
• sender
• 人
• text

• 帖主：dycll
• lxpbuaa
• lxpbuaa

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