Pint:^string;在这里将^放在数据类型之前,说明是声明的字符串指针类型!如果想取出指针引用的值的话,就将^放在声明的类型后就可以了,比如:Pint^想取Pint类型的所引用地址的话,就将@放在之前就可以了,比如:@Pint ^type 表示指向这种类型的指针 point^ 返回指针指向的变量的值 原文：http://www.cnblogs.com/yangxuming/p/7439827.html
DELPHI NEXTGEN编译开关{$IFDEF NEXTGEN}UTF8String = type _AnsiString(65001);RawByteString = type _AnsiString($ffff);{$NODEFINE UTF8String}{$NODEFINE RawByteString}{$ELSEIF Defined(LINUX64) or Defined(OSX64)}UTF8String = type AnsiString(65001);RawByteString = type AnsiString($ffff);{$NODEFINE UTF8String}{$NODEFINE RawByteString}{$ELSE}UTF8String = type AnsiString(65001);RawByteString = type AnsiStri...
添加引用ShellAPI过程或者过程中添加如下代码ShellExecute(Handle,‘open‘,‘Explorer.exe‘,pwidechar(‘/e,/select,%s,‘+extractfilepath(application.ExeName)+‘导出\‘+dbfname+‘.dbf‘),nil,SW_NORMAL);function ShellExecute(hWnd: HWND; Operation, FileName, Parameters, Directory: LPWSTR; ShowCmd: Integer): HINST; stdcall;参数说明HWND: 用于指定父窗口的句柄。当函数调用过程中出现错误时，它将作为Windows...
摘要:在Delphi的VCL库中，为了使用以及实现的方便，应用对象Application创建了一个用来处理消息响应的隐藏窗口。而正是这个窗口，使得用VCL开发出来的程序存在着与其他窗口不能正常排列平铺等显得有些畸形的问题。本文通过对VCL的深入分析，给出了一个只需要对应用程序项目文件作3行代码的修改就能解决问题的方案，且不需要原有的编程方式作任何改变。一、引言 用Delphi所提供的VCL类库编写的Windows应用程序，有一个明显不同于...
DELPHI 数据库连接类做的时候目地是可以通过类的创建和释放进行数据库的短连接，在做服务端的时候每一个请求都通过类生成一个数据连接unit UnDm;interfaceusesSysUtils, Classes, Controls, Forms, Dialogs,ComCtrls, ExtCtrls, Menus, StdCtrls,ADODB,DB,inifiles;typeTRecordResult = (RRError, RRZero, RROK);TDataStatus = (DsSel, DsEdit, DsAdd); typeTDataConnection = classDataAdoConn: TADOConnection;qryTemp1: TADOQue...
下面以Delphi调用触摸屏动态库xtkutility.dll为例子，说明如何静态加载DLL和动态加载DLL.直接上代码。1、静态加载示例unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)btnEnableTouch: TButton;btnDisEnableTouch: TButton;Label1: TLabel;Memo1: TMemo;procedure btnEnableTouchClick(Sender: TObject);procedure btnDisEnableT...
在开发某些软件的时候，为了保护程序自身，就需要用到隐藏程序进程。以下通过实例来讲解隐藏程序进程的方法： 1、创建一个新的项目 Project1 选择File,New Application。在表单Form1上放一Memo组件，一个OK按钮组件，改变OK按钮组件的Cation属性为 CreateProcess。再放一个timer组件。设置timer组件的Interval值为1000,每秒检查一次进程是否终止。 2、在Unit1 Use节的Type后定义一个过程 procedure EstablishProce...
1.将jar转换为dexcall dx --dex -verbose --output=.\output\dex\test_classes.dex --positions=lines .\output\jar\test_classes.jar2.Delphi XE6,XE7下，通过Project菜单下Deployment Manager,将test_classes.dex复制到远程目录assets\internal\目录 原文：http://www.cnblogs.com/hezihang/p/3975920.html
四、抽象类和它的实例 Delphi中有一个类称为是抽象类，你不能天真的直接为它创建一个实例，如varStrLst: TString; beginStrLst:= TString.Create;StrLst.Add(‘I love China‘);StrLst.Free; end; 这是不对的，因为TString是一个抽象类。 那么怎么为这样的抽象类构造实例呢？答案就是借助它的非抽象子类。我们知道TString有一个TStringList的非抽象子类。所以可以这样操作varStrLst: TString; //还是可以通过抽象类来...
http://bbs.csdn.net/topics/390230792回复于： 2015-06-01 21:11:02最简单的办法：------------------------以下是转载的，出处忘记了---------------------TButton和TBitBtn都不能改背景色。要让Caption分行显示，TBitBtn可以，TButton不行。方法是，按Alt+F12切换到DFM的源码，找到BitBtn，在Caption那项要换行的地方插入#13，比如‘BitBtn1‘#13‘abc‘，再按Alt+F12切换回来，就可以看到‘BitBtn1‘和‘abc‘分行显示。原文：...
Delphi开发WebService给ASP.NET调用说明：1、本文档分3个部分，分别为：用Delphi编写WebService在IIS下部署WebService在ASP.NET中调用webservice2、开发环境为Windows XP SP2、Delphi 7.0、IIS 5.1、VS 2008（C#） 一、用Delphi编写WebService第1步：File → New → Other → WebServices → SOAP Server Application 第2步：选择ISAPI/NSAPI Dynami Link Library 第3步：选择Yes第4步：输入接口的名称，这里用Main，其他选项不用改...
Delphi 10.2.3 新增的TMimeTypes类，利用url中的文件扩展名，可以轻松得到url需要返回的类型,查看AddDefTypes方法，几乎涵盖了所有的文件类型。为了使用TMimeTypes，我们不必建立他的实例，直接使用TMimeTypes.Default属性，这个属性是个类属性，可以直接使用并返回TMimeTypes的实例。classproperty Default: TMimeTypes read GetDefault;这是GetDefault的实现代码，通过代码，我们看到，返回一个唯一实例。classfunction TMimeTyp...
zw版【转发·台湾nvp系列Delphi例程】HALCON MaxImage2procedure TForm1.Button1Click(Sender: TObject);var image0, image1, result : HUntypedObjectX; w, h : OleVariant; op : HOperatorSetX;begin op := CoHOperatorSetX.Create; op.ReadImage(image0, ‘ic0‘); op.GetImageSize(image0, w, h); HWindowXCtrl1.HalconWindow.SetPart(0, 0, h - 1, w - 1); op.DispObj(image0, HWindowXCtrl1.HalconWindow.HalconID); ...
常用【属性】 Action：该属性是与组件关联的行为，允许应用程序集中响应用户命令 Anchors：与组件连接的窗体的位置点 Align：确定组件的对齐方式 AutoSize：确定组件是否自动调整其大小 BiDiMode：（所有组件） 为从右向左写的语言提供支持 BoundsRect：定义组件边框矩形(只适用于运行时） Borderwidth：（窗口化组件）边框的宽度 BorberStyle：设置组件边框形状(样式) Brush：可确定组件的风格和颜色 Caption：使...
delphi中用Table表组件和Query查询组件配合进行的增删改查 一、打开数据库表进入检索状态var Table1:TTable; //定义Table1为TTable类型的变量begin Table1:=TTable.Create(self);//自建表 Table1:=DatabaseName:=‘rsgl‘;//数据库名 Table1:=TableName:=‘operator.db‘ //打开数据库Table表 文件名是“operator.db” Table1.Open; //Table1表开启状态 Table1.SetKey; //将系统设置成检索状态 Table1.F...