摘要:
var i:Integer;begin for i:=0 to componentcount-1 do begin if (components[i] is TEDIT) then begin TEDIT(components[i]).text:=''; end; end; end; 阅读全文
posted @ 2012-04-28 11:21 大悟还俗_2 阅读(177) 评论(0) 推荐(0)
|
|||
|
摘要:
var i:Integer;begin for i:=0 to componentcount-1 do begin if (components[i] is TEDIT) then begin TEDIT(components[i]).text:=''; end; end; end; 阅读全文
posted @ 2012-04-28 11:21 大悟还俗_2 阅读(177) 评论(0) 推荐(0) |
|||