摘要: 测试1 测试2 1 //校验文本框 2 function fCheckEdit(aForm:TForm) : Boolean; 3 var 4 I : Integer; 5 mmName,mmFLag,mmTxt : string; 6 mmCurr : Currency; 7 begin 8 Re 阅读全文
posted @ 2019-08-26 15:45 德芙70 阅读(144) 评论(0) 推荐(0) 编辑