摘要：这是自带的一个例子，看懂这一点东西，基本的操作应该没问题了....unit Main;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrl... 阅读全文

摘要：现在多数设备、计算机都有多个CPU单元，即使是手机也是多核的。但要在开发中使用多核的优势，却需要一些技巧，花费时间编写额外的代码。好了，现在可以使用Delphi做并行编程了。在Delphi、C++ Builder和RAD Studio XE7中，有一个简化并行运行任务的库，叫做并行编程库。并行编程库... 阅读全文

摘要：先新建一个Package file----NEW-----Package Delphi for win32，再在Component->ImportComponent里面添加好ActiveX控件。之后不要选CreateUnit，要选AddunittoPackage。在右上角Package.bpl上按右键选Install，成功会弹出一个控件列表的对话框，保存Package.bpl就好了。 阅读全文

摘要：如果你想使用Delphi诸如XE4、XE3、XE2、XE之类的版本跟Delphi XE5共存的话，在cglm.ini中简单修改两行就行啦。找到Delphi XE5的安装根目录C:\Program Files (x86)\Embarcadero\RAD Studio\12.0\bin下的cglm.ini文件，打开cglm.ini文件[Embarcadero License Management]RootDir=${MODULE_DIR}\..LicenseDir=${ROOTDIR}\LicenseInfoDir=${COMMON_APPDATA}\Embarcadero\.licensesSl 阅读全文

摘要：如果你使用messagedlg(对showmessage也适用)可以汉化定义按钮caption的常量，具体操作步骤如下：1. 打开文件consts.pas(在Delphi安装目录的/source/vcl下) 2. 将以下资源字符串常量的值进行改动： SMsgDlgWarning = '警告'; SMsgDlgError = '错误'; SMsgDlgInformation = '信息'; SMsgDlgConfirm = '确认'; SMsgDlgYes = '(&Y)是'; SMsgDlgNo =  阅读全文

摘要：第一章 初始化OpenGL 无论是什么东西，要使用它，就必须对它进行初始化。如果你之前使用过GDI，你应该也多多少少了解到GDI在绘制图形之前要为之创建渲染环境。OpenGL也一样。本章给出的代码，大家可以不必理解其中的具体意义，反正以后每次初始化是使用这个代码即可。 首先，在一个新的应用程序中，我们需要添加对OpenGL库的引用。Delphi已经为我们写好了OpenGL的头文件，因此我们只须直接在单元的uses中添加OpenGL即可: ... uses Windows, Graphics, OpenGL, ... ... 在创建窗口时，应添加如下代码：procedure Form1.Crea 阅读全文

摘要：前言 在开发了许多2D图形程序之后，许多人开始对3D图形编程产生了兴趣。学习一套3D API，是进行3D图形编程的基础。在有趣的3D图形编程中，3D API只不过充当着一种低级的工具而已。因此，在这里我要提醒想学习3D API的朋友，无论你将要使用DirectX，或者跟我一样使用OpenGL，都不要把它们看得过于神圣。事实上它们只是一套API，学习它，你只须一定的Windows编程基础即可。它们不需要你有多么高深的数学功底，也不需要什么灵活的头脑——如果你只是想用OpenGL渲染3D图形的话，就不需要什么特别的知识。因为无论是DirectX还是OpenGL，都只是在帮你画画而已。 我的这套教程 阅读全文

摘要：unit Unit1;interfaceuses OpenGL,Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;type TForm1 = class(TForm) Timer1: TTimer; procedure FormCreate(Sender: TObject); procedure FormPaint(Sender: TObject); procedure Timer1Timer(Sender: TObject); ... 阅读全文

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;type TMyR... 阅读全文

摘要：unit Form_MainU;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,MapWinGIS_TLB, DB, Grids, DBGrids, DBTables, OleCtrls, ComCtrls, StdCtrls ;type TForm1 = class(TForm) Button1: TButton; PageControl1: TPageControl; TabSheet1: TTabSheet; T... 阅读全文

摘要：unit Unit3;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.DBGrids, Data.DB, Vcl.OleCtrls, MapWinGIS_TLB, Vcl.ComCtrls, Vcl.StdCtrls, Vcl.OleServer, Bde.DBTables;type TForm3 = cla... 阅读全文

摘要：虽然版本号升的不大，但这也是一个重要的版本。作者发现了一个长期存在的bug,就是建立一个线程，如果不指定线程的优先级则默认设置为idle。(正确的应是Normal)看一下具体的改动情况：新功能：Added SetPriority function to the IOmniTaskConfig.Added indexed writers ([number] and [name]) to both TOmniValue and TOmniValueContainer. Bug修正：如果不指定线程优先级默认设置为Normal.Corrected swapped content of 'Sch 阅读全文

摘要：interfaceuses Classes, SysUtils;type TParallelProc = reference to procedure(i: Integer; ThreadID: Integer); TParallel = class(TThread) private FProc: TParallelProc; FThreadID: Integer; //current thread ID protected procedure Execute; override; function GetNextValue: Integer; public... 阅读全文

摘要：有如下循环体：hits:=0;for I:=0 to NumberOfIterations-1 dobegin {perform some calculations dependent on random number generation to determine a value x} if x>0 then hits:=hits+1;end;{For Loop}FailureProbability:=hits/NumberOfIterations;如果迭代次数非常大，如何用并行方法完成？答案如下：program loop;{$APPTYPE CONSOLE}const ... 阅读全文

摘要：1) 删除文件: C:\documents and settings\\.borland\registry.slm，如果在win8或在win7下，即C:\Users\HiWin8\.borland2)运行 c:\program files\borland\delphi7\bin\D7Reg.exe3) 一路单击下一步即可...4)打开 Delphi7 阅读全文

摘要：SetLength(glb_IndexConfig,0);FreeAndNil(glb_IndexConfig); 阅读全文

摘要：Delphi的table的RecNum属性，可以用来定位记录，如：self.Table1.RecNum:=23;即可以让数据库记录移动到23号记录上，但这种作用仅限于Paradox数据库，而不是dBASE数据库。如何解决这个问题，可以如下处理：unit DBTables;...procedure TBDEDataSet.SetRecNo(Value: Integer);begin CheckBrowseMode; if (FRecNoStatus = rnParadox) and (Value RecNo) then begin DoBeforeScroll; if Dbi... 阅读全文

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure Button1Click... 阅读全文

摘要：哈希表是通过哈希值来访问的,通过一定的内存浪费获取检索速度,在检索项时是不需要逐一检索。在编程中有一定的好处。unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedur... 阅读全文

摘要：delphi 创建DBASE和FOXPRO两类DBF数据文件的差异，主要有几点：1、创建方法不同DBASE的创建方法：Self.Table1.Close; Self.Table1.Active :=False; Self.Table1.DisableControls; Self.Table1.DatabaseName:=Path; Self.Table1.TableName:=Fname; Self.Table1.TableType :=ttDBase;//与FoxPro的不同 Self.Table1.FieldDefs.Clear;... 阅读全文