Delphi 复习代码

1、取得可文件路径

Path := ExtractFilePath(Application.ExeName); //取得可执行文件路径 TXMLDocument.Create(ExtractFilePath(Application.ExeName)+ ‘001.xml‘）

2、DisableControls EnableControls

ClientDataSet.DisableControls;

...

for I := 0 to 10000 do

begin

ClientDataSet.Append;

...

ClientDataSet.Post;

end;...

ClientDataSet.EnableControls

时间： 2024-12-28 17:31:03

Delphi 复习代码的相关文章

Delphi图像处理代码下载

有不少读者看了我的图像处理文章后,希望得到源代码,我很早就写了一份Delphi图像处理单元,但一直没有时间测试整理,这次元旦抽时间进行了简单的整理,发布在CSDN,有需要的读者可去下载. BLOG中的Delphi图像处理文章的代码属简化代码,可作参考. 由于水平有限,代码中不可避免的存在错误,望进行指证. Delphi图像处理代码下载地址:http://download.csdn.net/detail/maozefa/8323289 ??

delphi HTML代码

################################属性设置################################################ 字体设置{//---------------------------------------------------------------------------------------字体名称 <FONT face=微软雅黑>This A Text</FONT>字体大小 <FONT size=1&g

delphi 修改代码补全的快捷键(由Ctrl+Space 改为 Ctrl + alt + Space)（通过修改OpenTool生效）

delphi 的IDE快捷键与输入法切换键中突,以往的解决方法是下载一个ImeTool修改 windows 系统的快捷键在 xp win7 都好使,但在win 10经常是修改完后,重启又失效了. 本方法采用 Open Tools API 编写是一个组件.安装方法: 菜单-->Component -->install Component 然后选择此本单元,然后就瞎折腾吧.就好了. 源码下载 unit EagleBufferList; interface procedure Register;

delphi 修改代码补全的快捷键(由Ctrl+Space 改为 Ctrl + alt + Space)

delphi 的IDE快捷键与输入法切换键中突,以往的解决方法是下载一个ImeTool修改 windows 系统的快捷键在 xp win7 都好使,但在win 10经常是修改完后,重启又失效了. 本方法采用 Open Tools API 编写是一个组件.安装方法: 菜单-->Component -->install Component 然后选择此本单元,然后就瞎折腾吧.就好了. EagleBufferList.pas 源码如下: 源码下载 unit EagleBufferList; inte

奖学金评分系统（系统分析与设计版与Delphi实现代码）

一.系统规划 1.1 项目背景介绍在奖学金评比过程中,学生综合测评是学校普遍采用的评比手段.对学生实施综合素质测评的目的在于正确评价学生的综合素质,为评奖学金提供依据,实现学生教育管理工作的标准化.制度化和科学化,引导和促进学生德.智.体.美全面发展. 1.2 现存问题及系统目标目前我国普遍高校学生奖学金评比还停留在纸质的阶段,许多工作需要传统的手工操作,这不仅浪费了大量的人力物力资源,而且由于人工管理存在着许多不可控因素,导致学生奖学金评比操作不规范,测评结果不全面,不能客观准确地反应学生

delphi 动态绑定代码都某个控件

Button16第一次是绑定代码,第二次就是执行 procedure TForm2.Button16Click(Sender: TObject); var aMethod:tMethod; begin aMethod.Code:=self.MethodAddress('Button1Click'); aMethod.Data:=self; TButton(self.FindComponent('Button16')).OnClick := TNotifyEvent(aMethod); end;

delphi 在代码中添加 TO-DO 并且管理

TO-DO List是一项非常好用的功能.采用她可以让我们很清楚的了解以前完成了那些任务,还有哪些任务需要做,由谁负责完成,是不是比较紧急的任务等.今天来不及完成的,明天上班就可以很快的找到任务所在的位置. 打开TODOLIST:点击菜单[View]--> 选择菜单[To-Do List] 显示窗口内容有: Action Item:任务项: !: 优先级 Module: 所属模块 Owner: 所有者 Category: 种类右键

一个用UpdateLayeredWindow实现窗体半透明的delphi的代码

http://www.pudn.com/downloads171/sourcecode/windows/detail791686.html unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, gdipapi, gdipobj, Menus, StdCtrls; type TForm1 = class(TForm)

oc基础第二天类与对象---1复习代码

#import <Foundation/Foundation.h> @interface Phone : NSObject { @public NSString *_brand; NSString *_model; NSString *_color; float _size; NSString *_cpu; } - (void)aboutMyPhone; //aboutMyPhone; //打电话. - (void)callWithNumber:(NSString *)number; //ca