随笔分类 -  Delphi

摘要：TObject = class//创建constructor Create;//释放procedure Free;//初始化实列class function InitInstance(Instance: Pointer): TObject;//清除实列procedure CleanupInstance;//获得类的类型function ClassType: TClass;//获得了的名称class... 阅读全文

摘要：{*******************************************************}{ }{ 陈新光 }{ }{ 版权所有 (C) 2007 咏南工作室 }{ }{*******************************************************}unit Unit1;interfaceusesWindows, Messages, SysU... 阅读全文

摘要：LL资料（一）2008-07-08 16:49第一篇文章:关于INNO,让您更喜欢INNO, 异构数据库之间完全可以用SQL语句导数据 海量数据库的查询优化及分页算法方案 ClientDataSet的隐含功能 解决DELPHI2005调试ASP.NET程序小问题 技术资料（全） 文件读取的基本方法 编程助手计划，帮你自动生成流程图 关于Table的FindKey和Locate查找的问题 Delph... 阅读全文

摘要：DLL比较复杂时，可以为它的声明专门创建一个引入单元，这会使该DLL变得更加容易维护和查看。引入单元的格式如下：　　unit MyDllImport; {Import unit for MyDll.dll }　　interface　　procedure MyDllProc;…implementation　 　procedure MyDllProc;external 'MyDll' in... 阅读全文

摘要：一、开使你的第一个DLL专案 　　1.File->Close all->File->New﹝DLL﹞ 　代码: 　　//自动产生Code如下 　　library Project2; 　　//这有段废话 　　uses 　　SysUtils, 　　Classes; 　　{$R *.RES} 　　begin 　　end. 　　2.加个Func进来： 　　代码: 　　library Pr... 阅读全文

摘要：知道事件触发顺序的重要性和必要性实现一项功能通常要做两件事：a）首先要知道在哪里控制；b）其次要知道如何控制。 然而，很多情况下都是我们已经知道怎么去控制，但不知道控制点选在哪里。这主要是因为我们对组件事件的触发顺序搞不清楚。 阅读全文

摘要：ReportMachine报表 你可以发现ReportMachine报表设计器有一个非常吸引人的用户界面，使用最新的用户界面组件，例如可停靠的工具栏，窗口。类西于Excel的操作方式，你的最终用户将会非常愿意使用这个设计器，只需使用鼠标就可以创建大多数报表。　　ReportMachine是名副其实的快速报表：较其它一些Delphi报表设计器而言，你可以发现没有什么可以接近于它的开发速度，并赋于你的应用程序非常专业的用户界面。使它拥有其它Delphi报表设计器所不能相比的诸多先进特性。 阅读全文

摘要：MySQL数据库操作类unit MySQLData; interface uses SysUtils, Classes,DB,Variants,StdCtrls,Dialogs,myaccess; type TMySQL = class(TComponent) private Connection: TMyConnection; Query: TMyQuery; Table: TMyTable; FConnectionString:string; procedure InitQuery(InputQuery: TMyQuery; QueryString: String); function CheckParaEqual(QueryString: String; ParameterList: TStringList):Boolean; procedure InitParameter(InputQuery:TMyQuery;QueryString:string;ParameterList: 阅读全文

摘要：{ No.1 判断逻辑类型 } var B: Boolean; begin B := Boolean(2); //这样只是为了调试//B := True; if B = True then ShowMessage('B = True'); //不建议//不安全 /////// if B then ShowMessage('B'); //建议//简短 end; var B: Boolean; begin if Edit1.Text = '是' then //不建议//烦琐 B := True else B := False; /////// B := Edit1.Text = '是'; //建议//简短 end; 阅读全文

摘要：一、Owner和Parent的区别： 　　Parent属性是指构件的包容器，构件只能在此范围内显示和移动。举例子如下： 　　(1)在Form1的窗体上，放一个Panel1,并将Panel1拉大， 阅读全文

摘要：使用方法, uses 本单元——>使用如:Pub.MsgBox('你好，欢迎使用本公用函数！'); ShowMessage(Pub.PathExeDir); 阅读全文

摘要：一、打印dbgrid数据： //============================================================================== //打印DBGrid中的所有数据******************************************************** //============================================================================== procedure DBGridPrint(DBGrid: TDBGrid; Title: string); var PrintDialog: TPrintDialog; RowHeight, Temp_X, Temp_Y, PageEdgeX, PageEdgeY, PixelsPerInchX, PixelsPerInchY: integer; TempStr: string; Scale: Double; Rect: TRect; 阅读全文

摘要：Delphi中生成控件的两种方法 阅读全文

摘要：unit MyButton; interface uses Windows, Messages, SysUtils, Classes, Controls, StdCtrls, Graphics; type TMyButton = class(TButton) private FCanvas: TCanv... 阅读全文

摘要：拖放(DragDrop)是Windows提供的一种快捷的操作方式。作为基于Windows的开发工具，Delphi同样支持拖放操作，而且开发应用系统的拖放功能十分方便，真正体现了Delphi 的强大功能和方便性。 阅读全文