存储过程和函数存储过程和函数:类似于java中的方法 好处: .1、提高代码的重用性2、简化操作 存储过程 含义:一 组预先编译好的SQL语句的集合,理解成批处理语句1、 提高代码的重用性2、简化操作3、减少了编译次数并且减少了和数据库服务器的连接次数,提高了效率. 创建语
---------例子是XE的---- 只是本人测试的,仅供学习!代码很乱! 在一个程序中测试 IdTcpClient和IdTcpServer有点坑, 测试的时候最好写Client和Server两个程序测试 -------------------- -------------------------Unit开始 unit Unit1; interface uses Windows, Messages, S
unit Unit1; interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) ComboBox1: TComboBox; Button1: TButton; Button2: TButton; procedure FormCreate(Se
Action 相关组件 TAction //<- TCustomAction <- TContainedAction <- TBasicAction <- TComponent TActionList //<- TCustomActionList <- TComponent //其父类 TCustomActionList 包含一个 TContainedAction 类型的动作列表(Actions[]) TActionMan
使用泛型, 写一个为任意类型的动态数组添加元素的方法 一、使用泛型类:unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs; ty
捕捉 midi 输入消息的基本程序 uses MMSystem; var hMidiIn: Integer; procedure midiCallBack(hdrvr: HDRVR; uMsg: UINT; dwUser: DWORD; dw1, dw2: DWORD) stdcall; begin case uMsg of MIM_OPEN: ; MIM_CLOSE: ; MI
以接口为主导的设计中, 我在使用的框架模式 在今后的 Delphi 中, 以接口、结构为主的设计应该会越来越多, 因为这样太方便了.System.RegularExpressions 就是以结构为主体设计的非常好的示范; 但更多东西使用接口会更合适.有见过他人早就使用接口写程序, 从手头的这个程
现在使用控件, 更喜欢继承 以前写代码, 总是把主单元弄得满满当当; 现在更喜欢把控件比较独立的功能写成一个单元, 改写属性、重载方法...哪怕只有一点点和默认不同, 也喜欢独立出来.刚刚用到 TListBox, 需要能拖动元素、双击删除.unit ListBox2; interface uses
把一个"结构体"当做属性后碰到的问题 当我把一个"结构体"在类中当做属性后, 在实用中可以直接读取结构体成员, 但不能直接写入...下面是由此引发的小练习:unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, S
禁止用鼠标拖动窗口的大小 - 回复 "合肥的石头" 的问题 问题来源: http://www.cnblogs.com/del/archive/2009/05/15/1458017.html#1534170//方法一, 同 BorderStyle := bsSingle; unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics
如何把窗体关闭到系统托盘 - 回复 "三足乌" 的问题 问题来源: http://www.cnblogs.com/del/archive/2009/05/15/1458017.html#1549351 代码文件:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,
SendTextMessage 等方便的消息发送函数 突然发现 Message 单元的最后给提供了几个方便的消息发送函数: SendTextMessage、SendStructMessage、SendGetStructMessage、SendGetIntMessage 虽然函数实现的很简单, 但用他们发送文本、结构和整数, 的确方便了不少; 下面仅就 Se
测试字符串读取类: TStringReader TStringReader 比 TStringWriter 的方法少得多, 分别可按: 字符、行或全部读取; 读取字符时得到的是字符编码, 全部或按行读取得到是字符串, 也可读取到字符数组.unit Unit1; interface uses Windows, Messages, SysUtils, Variant
测试字符串写入类: TStringWriter 以前没见过这个类, 它是在 TStringBuilder 的基础上实现的; 使用它可以方便地把各种数据类型写入字符串.unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrl
写一个可拖动的 TShape - 回复 "韦韦" 的问题 问题来源: http://www.cnblogs.com/del/archive/2009/03/09/1234066.html#1471535 本例效果图: 自定义类(TMyShape)单元 :unit Unit2; interface uses Classes, Controls, ExtCtrls; type TMyShape = class(TShape) p
如何获取图片中第一个像素的颜色值? - 回复 "格兰特" 的问题 问题来源: http://www.cnblogs.com/del/archive/2009/03/15/1410030.html#1477217unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, St
显示 jpg、png、gif 图片及 gif 动画 - 回复 "格兰特" 的问题 问题来源: http://www.cnblogs.com/del/archive/2009/03/15/1412384.html#1477470unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, St
一个用 GDI+ 给图片添加花边的例子 - 给 "sky123" 做的 按 "sky123" 的样图要求, 花边必须是透空的, 最好使用图元文件; 本例没有做完保存功能, 也没有实现整个图片的调整功能. 因为有测试图片, 给个源码下载吧: http://www.cnblogs.com/Files/del/sky123.rar 本例效果图:
给 Memo 排序的函数 本例效果图: 代码文件:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; procedure Bu
一个定时器相关的简单例子 - 回复 "Timer008" 的问题 问题来源: http://www.cnblogs.com/del/archive/2008/07/09/1073218.html#1249648 代码文件:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,
回复 "Timer008" 的一个类型转换的问题 - 不是很典型, 对其他人参考价值不大 问题来源: http://www.cnblogs.com/del/archive/2008/07/10/1239621.html#1250359 代码文件:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Cont
启动控制面板各窗口 首先复习怎样调用外部程序: Delphi 运行外部程序是使用 Windows.WinExec 或 ShellAPI.ShellExecute, 譬如: WinExec('notepad.exe', SW_NORMAL); {打开记事本} WinExec('regedit.exe', SW_NORMAL); {打开注册表编辑器} DLL 文件与 EXE 文件的主要区别
实现无标题栏但有边框的窗口 本例效果图: 代码文件:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) CheckBox1: TCheckBox; procedure CheckBox
模拟一个带背景的 TPanel 程序中用 TPanel 做了容器, 需要给它一个背景图片; 发现这竟是个难题! 发现我经常使用的滚动箱控件 TScrollBox, 是一个很好的替代品. 本例需要先添加两个图片资源, 添加方法可以参考: http://www.cnblogs.com/del/archive/2008/08/23/1274591.ht
快捷键设置控件: THotKey [2] - 自定义菜单快捷键 运行效果图:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) HotKey1: THotKey; Bu