dll 调用部分：{****************************************************************}{}{ Project: DllDebug }{ Copyright(c) 2003, 2005 }{ Unit for UCommonUnit }{ Create : 2003-01-05 by 林红卫 }{ Modify : 2003-01-16 by 林红卫 }{}{*******...
做项目的时候，发现这个Frame很好用，为了省空间、调用和修改方便，就将Frame封装到dll(动态链接库)里面，确实很好使。效果图如下：上图是临时测试用的，忘了将Frame的align设置成alClient，不过刚好可以看出来白色区域是从dll里加载的Frame，还调用了Frame的按钮单击事件。下面是大概的建立流程：1、File -> New -> Other -> Delphi Projects -> 新建一个Dll文件 2、然后继续 File -> New -> Other -> Delphi Projects -> Delphi ...
25年后从10个使用Delphi的理由到1个至25个使用Delphi 10.3的理由25年前发布Delphi 1时，我汇总了使用Delphi的十大理由。这是我精通Delphi原始书的序言中的原始列表：“可以使用许多编程环境，但是Delphi之所以出色，有很多原因。以下是我以相反顺序使用Delphi的十大理由：10.以前的Borland Pascal和C++编译器9.第三方组件和工具8.编辑器，调试器，浏览器和其他工具7.库源代码的可用性6.基于表单和面向对象的方法5.快速编译器4.数据...
原文：http://www.hxhlb.cn/article/32142aaeb67bbc05379369c3.html 那一天,我装上了RAD Studio XE5.当天晚上,我就写了一个小小的Android程序.但是,苦于没有好手机,没办法进行测试.今天,下载了一晚上,终于把Android所有的sdk都安装上了,配置进XE5中唉,用这么庞大的XE5来编写Android SDK 2.1版本的程序,我都觉得害羞...废话不多说,下面我们来解决问题.XE5自带的SDK,是SDK4.2,我把在4.2版本下写的程序放到2.1版本上进行编译发布,理所...
下面的程序，可以实现Android下获取GNSS的NMEA0183数据：unit utAndroidNmea;interfaceuses Androidapi.JNIBridge, Androidapi.JNI.App, Androidapi.NativeActivity, Androidapi.JNI.JavaTypes, Androidapi.JNI.Location;typeTonNmeaReceived=procedure(timestamp: Int64; nmea: String) of Object;TJGpsStatus_NmeaListener = class(TJavaGenericImport<JGpsStatus_NmeaListenerClass, JGpsStatus_NmeaListener>) end;TNmeaProvid...
第一步: 使用过Activex的人都知道，Activex不注册是不能够被系统识别和使用的，一般安装程序都会自动地把它所使用的Activex控件注册，但如果你拿到的一个控件需要手动注册怎么办呢？如果修改注册表那就太麻烦了，在Windows的system文件夹下有一个regsvr32.exe的程序，它就是Windows自带的Activex注册和反注册工具。它的用法为： regsver32详解 regsvr32 [/s] [/n] [/i(:cmdline)] dllname 其中dllname为activex控件文件名，建议在...
type TComplex = record Real : Single; Imag : Single; end;TKArray=array [1..2048,1..2048] of TComplex;varlcArr:TKArray;lcC:Integer;lcArr2:Array of Array of TComplex;beginMemo1.Lines.Clear;Memo1.Lines.Add(‘TKArray [2048 x 2048]:‘);lcC:=SizeOf(lcArr);Memo1.Lines.Add(‘总大小：‘+IntToStr(lcC)); {33554432}lcC:=SizeOf(TComplex);Memo1.Lines.Add(‘元素大小：‘+IntToStr(lcC)); {8}lcC:=SizeOf(lcAr...
一般来说，用来扫描整个数据库表并修改每个记录的某一个字段的程序如下所示：with Table DobeginDisableControls;{在修改记录的过程中，使其它部件无效}First; {将记录指针指向第一条记录}while not EOF dobegin<读取记录的一个字段值到一个变量中><做适当的修改>Edit; {将TTable部件置成编辑状态}<将修改后的字段值写回到其对应的字段>post; {将修改后的记录写回数据库}next; {修改下一条记录}end;enablecontrols; {恢复其它部件的...
转载地址：https://www.cnblogs.com/findumars/p/7147523.html1.启动delphi7。2.File-->Open Project ...打开TMS component 源目录下的“tmsd7.bpg”。3.在打开的窗口列表中，依次在各选项上点击鼠标右键，选择“Install”。4.将源目录下所有的pas文件、dfm文件及“tmsdefs.inc”文件拷贝到“c:\program files\borland\delphi7\lib”下。5.将源目录下的advgrid.res asgres.res asgspin.res的文件拷贝到“c:\program files\borland\...
program Project1;uses Windows, Messages, SysUtils; procedure DeleteMe; var BatchFile: TextFile; BatchFileName: string; ProcessInfo: TProcessInformation; StartUpInfo: TStartupInfo; begin BatchFileName := ExtractFilePath(ParamStr(0)) + ‘_deleteme.bat‘; AssignFile(BatchFile, BatchFileName); Rewrite(BatchFile); Writeln(BatchFile, ‘:try‘); Writeln(BatchFile, ‘del "‘ + ParamStr(0) + ‘"‘); Writel...
问题现象：delphi2007、2010无法二次启动，报EditorLineEnds.ttr被占用，而且进程中一直有bds.exe的进程？问题原因：问题处理：方法一：可能是系统更新的东东造在的。KB2970228和KB2982791。KB2970228和KB2976897。KB2993651。 方法二：实在没法了，就用批处理吧。@echo offset NewFileName="%TEMP%\%date:~0,4%%date:~5,2%%date:~8,2%%time:~0,2%%time:~3,2%%time:~6,2%.tmp"MOVE %TEMP%\EditorLineEnds.ttr %NewFileName%start "...
<SPAN style=‘font-family: "宋体"; font-size: 10.5pt; mso-spacerun: "yes";‘> 试了一下，关于好几个广告界面，左右滚动的效果：用TabControl 加上定时器实现即可。 1、TTabControl外观 TTabControl的外观由属性TabPosition控制，可选项包括：tpTop 选项tab在控件上方tpBottom 选项tab在控件下方tpNone 以原点形式显示选项tab，在控件下方，如下图：tpDots 以方格形式显示选项tab，在...
转载自：https://www.cnblogs.com/lackey/p/6306368.html第五节：多个线程同时执行相同的任务 1.锁 设，有一个房间 X ，X为全局变量，它有两个函数 X.Lock 与 X.UnLock;有如下代码： X.Lock; 访问资源 P; X.Unlock; 现在有A,B两个线程时空都要执行此段代码。当线程A执行了 X.Lock 之后，在没有执行完 X.Unlock 之前，第二个线程B此时也来执行 X.Lock ，线程B就会阻塞在 X.Lock 这句代码上。我们可以认为，此时，线程A进入房间，...
一、工程文件program MultiUnit;{$APPTYPE CONSOLE}usesSysUtils,Unit1 in‘Unit1.pas‘;begin//引用unit1中的变量，因为是在接口部分定义所以可以引用strGreet:=‘Hello world‘;//调用unit1中的过程 因为是在接口部分定义所以可以引用 Greeting(strGreet);//调用unit2中的函数;因为是在接口部分定义所以可以引用nAdd:=10;nAddfactor:=11;writeln(GetSum(nadd,naddfactor));{1、因为pai变量是在unit1单元的实现部分定义的，因此...
1．TTabControl 组件的典型用法TTabControl 组件使用起来，根本不会使程序简单化，所以不提倡使用此组件，可以用TPageControl组件代替。与多页组件不同的是，虽然Tab 组件上可以有一组按钮，但它们的客户区是公用的，当用户选择其中某个按钮时，将触发OnChange 事件。在处理OnChange 事件的句柄中，必须自己定义怎样操纵客户区上的内容。例如，可以用Tab 组件做一个图片管理器，用户选择不同的按钮，Tab 按钮的客户区就显示不同的内...