Delphi 从文件中存取组件,实例如图所示的效果中,通过菜单命令,可清除窗口中的控件,这个控件信息保存在文件中,清除了文件内容,也就清除了控件: for I := self.ComponentCount - 1 downto 0 do begin if self.Components[I].ClassName='TMainMenu' then continue; if self.Components[I].ClassName='TMenuItem' then continue; if self.Components[I].ClassName='TO