最近翻阅了以前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
Delphi自定义窗体位置
系统虽然预置了几个窗口位置,但有时我们需要自定义它的摆放位置,就只能代码控制了。 在oncreat中写下: begin Self.Position := poDesigned; Self.SetBounds(nLeft,nTop,nWidth,nHeight); end;
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