S sleepy Unregistered / Unconfirmed GUEST, unregistred user! 2000-01-09 #1 找到Form上所有的Edit控件，清空其中的内容， 怎样实现比较简单？
歪 歪就歪 Unregistered / Unconfirmed GUEST, unregistred user! 2000-01-09 #2 10分也挣…… procedure TForm1.SpeedButton1Click(Sender: TObject); var i: integer; begin for i := 0 to Form1.ComponentCount -1 do begin if Form1.Components is TEdit then TEdit(Form1.Components).Text := '' end; end;
10分也挣…… procedure TForm1.SpeedButton1Click(Sender: TObject); var i: integer; begin for i := 0 to Form1.ComponentCount -1 do begin if Form1.Components is TEdit then TEdit(Form1.Components).Text := '' end; end;
歪 歪就歪 Unregistered / Unconfirmed GUEST, unregistred user! 2000-01-09 #4 呵呵，咱不是没品位（当然，歪就歪的品位是有点儿差劲） 主要原因是咱没水平，难问题根本没我挣分的戏，只能见到 初级问题，赶紧就扑过去了，不然，怎么活啊？ 最近有不少问题想问，只恨分少！
S sleepy Unregistered / Unconfirmed GUEST, unregistred user! 2000-01-09 #5 分虽少，但是问题很基本呀，解决了俺的大问题了，呵呵，谢谢啦 !
