标签： 清除

[代码]清除容器内的组件内容

• Delphi • 暂无评论 • •2,019 次查阅

最近翻阅了以前delphi7时代的部分书籍和源码，发现有些东西和源码还是值得借鉴的，特摘录下来，备用。 procedure TFrmSave.ClearItem; //清除容器内的组件内容,容器按自己需要改变 var i: Integer; begin for i := 0 to GBxList.ControlCount – 1 do //选择容器 GBxList begin if GBxList.Controls[i] is TEdit then TEdit(GBxList.Controls[

清除多余的临时文件

• Delphi、SQL • 暂无评论 • •2,308 次查阅

当我们编写代码和修改的时候会在当前文件夹产生一定的带~标识的临时文件，默认情况下是不会自己删除的。 这无疑增加了管理的难度，我们需要定时给清理一下，索性就弄个bat，需要的时候点击一下就可以了。 del *.obj del *.dcu del *.~* del *.hpp del *.dcp del *.dpl del *.cesettings del *.log del *.ilc del *.ild del *.ilf del *.ils del *.tds 将上述代码另存为clear.ba