面朝大海，春暖花开。

摘要： ODAC 组件支持 Oracle 8 的 BLOB 和 CLOB 数据类型。你可以使用 TOraQuery 组件来获取 LOB 字段的值，使用同样的方法，你也可以获取 LONG 或 LONG ROW 字段。 当你需要使用 SQL DML 及 PL/SQL 语句存取这些字段时，你就会发现 LOB 数据 阅读全文

摘要： procedure DrawVirtualLine(Cvs: TCanvas;FromP,ToP: TPoint);var i: integer; Xl: Single; x,y: Integer;begin Cvs.MoveTo(FromP.x,FromP.y); if FromP.x = ToP 阅读全文

摘要： 一个队列类的实现(比delphi自带的速度快70倍) 测试结果 实现的代码 unit sfContnrs; interface {$DEFINE MULTI_THREAD_QUEUE} //线程安全版本，如果不需要线程安全，请注释掉此行代码 {$IFDEF MULTI_THREAD_QUEUE}us 阅读全文

摘要： NativeExcel procedure Tsave.CopySGDataToExcel(Target: TStringGrid;FileName: string);variCount, jCount: Integer;XLApp: Variant;Sheet: Variant;beginScre 阅读全文

摘要： 只要设置编辑框的Properties.EditValueFormat的值为除了cvfInteger以外的任意值即可。后者（cfvInteger）会让编辑框把它的控件值表示为所勾选项目的二进制组合。每个选项代表一个2的N次方的整数值。也就是选项的相关整数值为1、2、4、8、16或其它。控件的值就是这些 阅读全文

摘要： 奇淫怪巧之给Delphi的PrintDialog增加一个页码选定范围打印的Edit 在Delphi中使用PrintDialog打印对话框的时候，这个控件有三个选项，就是PrintRang那个属性的三个选项，其中有一个选项三，让我们自定义选择页码范围来打印。但是比较蛋疼的是，这个地方选中了之后啥子效果 阅读全文

摘要： 项目，增加了一个单元后，经常在第二次编译时出现 Internal error: URW3537的错误： 原因： 主要是type ＝ function 的原因，常出现与dll调用 解决方法： 1、全部编译 comiple all 2、把type ＝function 移动到最开始的type 处； 阅读全文

摘要： delphi 中TStringList 通过function AddObject(const S: string; AObject: TObject): Integer; 方法添加了一个对象，请问我在调用Clear 方法的时候该对象有没有被释放 object里存的只是指向对象的指针，clear只是把 阅读全文

摘要： Delphi中，自定义消息处理过程与Windows消息处理过程的定义是一样的。1.主用步骤：1>. 首先定义一个消息标识符常量；如：WM_MYMessage = WM_USER+ 5；（标识符常量的取值范围为WM_USER~WM_APP-1） 2>. 在单元文件中定义消息响应过程和消息标识符常量。 阅读全文

摘要： unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, System.DateUtils, Vcl.Cont 阅读全文