T tomye Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-20 #1 现有10个edit控件，我想用最少的语句给这10个控件的text属性 赋相同的值。
X xWolf Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-20 #2 // if there r only 10 edits // else u can group edits by TEdit's property Tag for I := 0 to ComponentCount - 1 do begin if Components is TEdit then begin TEdit(Components).Text := '****'; end; end;
// if there r only 10 edits // else u can group edits by TEdit's property Tag for I := 0 to ComponentCount - 1 do begin if Components is TEdit then begin TEdit(Components).Text := '****'; end; end;
S Scrate Unregistered / Unconfirmed GUEST, unregistred user! 2000-06-25 #4 在for 循环内用 FindComponent可替代if Components is TEdit 只要Edit控件的名字排列规则.
