2009年4月29日
清空所有Edit内容
摘要： CodeCode highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/-->//清空当前界面所有文本框过程procedure ClearText(AControl:TWinControl);var I : Integer;begin for I := 0 to ACon... 阅读全文
posted @ 2009-04-29 20:26 kaka9 阅读(977) 评论(0) 推荐(0) 编辑
Delphi中Edit输入控制必需为数字（2位小数）
摘要： procedure TfrmGoods_InfoAdd.edt_PriceKeyPress(Sender: TObject; var Key: Char);var DotPos,Len:integer;begin DotPos:=pos('.',(Sender as TEdit).Text); Len:=length((Sender as TEdit).Text); if ... 阅读全文
posted @ 2009-04-29 20:01 kaka9 阅读(1549) 评论(0) 推荐(0) 编辑