松龄的专栏

原文：http://www.faceker.com/200808/delphi-singleton-pattern.html单例模式顾名思义就是一个实例，在任何情况下，系统中只能存在某一对象的一个实例。单例模式在应用开发中比较常见，如 Application 或 Logger。在 Delphi 的以前版本中，实现单例模式比较“另类”，自从 Delphi 后期加入一些新的语法元素后，单例模式

AdvStringgrid.FocusCell(c, r)只能让某个单元格处于被选中状态，但是并不能获取焦点，想要获取焦点的方法是：  AdvStringgrid.Col :=  r;  AdvStringgrid.row := c;  AdvStringgrid.SetFocus;

floor 和 ceil 是 math unit 里的函数，使用前要先 Uses Math。trunc 和 round 是 system unit 里的函数，缺省就可以用。floor 直接往小的取，比如 floor(-123.55)=-124，floor(123.55)=123trunc 直接切下整数，比如 trunc(-123.55)=-123, floor(123.55)=123

引用ComObj这个单元Type Conn: TADOConnection; qry: TADOQuery;var Excel: OLEVariant; ExcelVersion: string;begin try Excel := CreateOLEObject('EXCEL.Application'); ExcelVers

在写程序时，我发现在滚动鼠标滚轮时，愿意是想让整个页面向下Scroll，但是此时恰巧页面焦点聚焦在Combobox的文本框内，滚动滚轮却是把Combobox内的内容给改变了。正常情况下这个也不影响什么，有时也方便操作，但是在此时的情况下无疑是不合适的，因为用户可能在不知情的情况下会把Combobox内的内容给改变，这无疑是不能发生的，所以，我就自己写段代码，来阻止这种事情发生。  Rz

Form窗体：TForm = class(TCustomForm)TCustomForm = class(TScrollingWinControl) TScrollingWinControl = class(TWinControl)TWinControl = class(TControl)TControl = class(TComponent)TComponent = cl

找的一篇英文资料：The TTreeView component includes the GetHitTestInfoAt method for this purpose.procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y:

{*******************************************************}{                                                       }{       定时关闭各种对话框                              }{

Structured types (结构类型)结构类型的一个实例可包含多个值。结构类型包括集合、数组、记录，也包括类、类引用（class-reference）和接口类型。除了集合只能包含有序值以外，结构类型可以包含其它的结构类型，且结构的层次不受限制。默认情况下，一个结构类型的值被圆整为字（word）或者双字（double-word），这样访问起来更迅速。当声明一个结构

集合的使用     （一）      delphi中的集合是对数学中集合的概念的简单实现。要求是集合中的元素必须同类型，且必须是序数类型，且集合中可能的元素个数不能大于255。    定义： type 集合类型名 = set of 元素类型    例如： type MySet = set of char; //注意 char 的个数本来就不超过255。

Delphi封装类到DLL因为个人需要研究了一下封装类到DLL。把他发表出来用Delphi封装类到DLL。 一个公共单元 1 unit ITest; 2 3 interface 4 5 type 6 IT = interface 7 function GetString:string; 8 procedure ShowMsg(p