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

最近翻阅了以前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批处理删除临时文件

在编写程序的同时,会在目录下生生很多带~的临时文件,打开的越多形成的越多,为了程序的干净有序我们务必要删除这些没有用处的临时文件。 手动删除?太慢!也不方便。 所以我们就得依靠自动化了,来写个批处理文件吧。 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

EXCEL 动态时间代码

你是不是厌倦了时间在EXCEL是静态的样子?想体验下EXCEL单元格中动态的时间吗?那就跟我来实现!此需求主要通过VBA来实现! 打开EXCEL,按ALT+F11打开VBA编辑器: 在thisworkbook中输入如下代码: Private Sub Workbook_BeforeClose(Cancel As Boolean)TerminateSet appTime = NothingSet objBtn = NothingEnd SubPrivate Sub Workbook_Open()In