2010年5月28日
delphi edit 固定小数位数的实现(形如：1,000,000.10)
摘要： procedure Tfrm_jz.Edit1KeyPress(Sender: TObject; var Key: Char);begin if (key in ['0'..'9',#8,#13]) then begin if key=#13 then begin if length(edit1.Text)>2 then edit1.Text:=copy(edit1.Text ,1,(len... 阅读全文
posted @ 2010-05-28 23:25 我心飛揚 阅读(664) 评论(0) 推荐(2) 编辑
Delphi DBGrid 固定小數位數的实现（形如1,000,000.00）
摘要： 在DBGrid的DBGridDrawColumnCell事件中嵌入如下代码：varstrShow: string;begin if (Column.FieldName='lastyear') or (Column.FieldName='thisyear') then //lastyear和thisyear为需要格式化输出的数据表中的字段。 begin if not Column.Field.IsN... 阅读全文
posted @ 2010-05-28 16:14 我心飛揚 阅读(617) 评论(0) 推荐(0) 编辑