遍历所有控件 for i := 0 to self.ComponentCount - 1 do begin if Components[i] is TRzEdit then begin TRzEdit(Components[i]).Clear; TRzEdit(Components[i]).Modified := false; end; end;