以下是为您整理出来关于【delphi】合集内容,如果觉得还不错,请帮忙转发推荐。
下面的程序,可以实现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单元的实现部分定义的,因此...