本人根据歼10博主的此博文的思路进行改进,目的是高效的实现FormatDateTime(‘YYYY-MM-DD HH:NN:SS.ZZZ‘, Now); 在DelphiXE3 32Bits环境测试10,000,000次, Delphi自带的FormatDateTime　　= 20405 ms 歼10的优化函数  = 2683 ms 本文优化函数 = 1851 ms 在DelphiXE3 64Bit

以往的Delphi版本，不支持接口的Weak，和UnSafe的引用，支持对象的Weak, UnSafe,而且仅在Android和Ios平台上支持。 现在Delphi XE10.1 Berlin终于增加了对接口的Weak, UnSafe的支持。   1.Weak Weak引用，不影响引用计数器，但是如果对象被释放，Weak引用变量自动清0，来看例子： type TA=class(TInterfa

Delphi 版 everything、光速搜索代码》，文章中关于获取文件全路径的函数：GetFullFileName，有一个地方值得优化。 就是有多个文件，它们可能属于同一个目录。 譬如 System32 目录下有2000多个文件，GetFullFileName 还是进行了2000多次的查询，效率肯定是受影响的。 先处理目录，获取目录全路径名称。 然后文件只用查询一次，就知道它的父路径的全路径了

procedure TForm12.Button2Click(Sender: TObject); var mystring: PChar; begin GetMem(mystring, 1024); GetWindowText(Button1.Handle,mystring,100); Label1.Caption := Format(‘%s:%d‘, [mystring, str

背景概述 ??Inno Setup安装程序用编译脚本的方式创建，脚本其实就是一个类似 .INI 文件格式的 ASCII 码文本文件(它不像你想象的那么复杂)，其支持Pascal语言。 Unicode Inno Setup支持 UTF-8 编码文本文件。 ??脚本用一个“.iss” (表示 Inno Setup 脚本) 的扩展名。脚本控制着安装程序的所有方面。由它指定哪些文件将被安装到什么地方，在哪

接上回。安装脚本段用于解析脚本中各个段的含义及使用方法。其包括[Setup]段、[Files]段、[Run]段等共17个字段，下面逐一进行分析。 [Setup] ??[Setup]段包含用于安装程序和卸载程序的全局设置。某些提示对于你创建的任何安装程序都是必须的。示例如下： [Setup] AppName=My Program AppVerName=My Program Version 3.1 D

原文网址 使用delphi+intraweb进行微信开发1~4代码示例 Posted on  2016-03-29 22:09 Delphi力量 阅读(1939) 评论(0) 编辑 收藏 前几讲重点阐述的是使用iw进行微信开发的技术难点及解决方法，提供的都是代码片段（微信消息加解密是完整代码），实际上我始终感觉按照教程实作是掌握一门技术的最重要的方法！不过对于刚刚接触这类开发的朋友来说可能学习曲线

1. 安装 Log4D下载： 官网地址 LoggerPro下载 GitHub地址 特点： log4d简单易用、性能稳定 LoggerPro貌似功能很强大，只是没有详细的文档，懒得翻源码 安装步骤 Log4D是开源的，所以可以进行重新编译,，解压到文件夹。打开文件夹"...\log4delphi-0.8"，新建一个文件夹"build";编译的时候可能出现个错误提示TFileUnit不存在直接将他删除

1.首先配置文件 [SubExamDep1] DBSERVER=(local) DBNAME=herpeisweixin USERNAME=sa PWD=bjbr MSG=SubExamDep1失败 [SubExamDep2] DBSERVER=(local) DBNAME=herpeisFZTJ USERNAME=sa PWD=bjbr MSG=SubExamDep2失败 2.工程文件加入 In

<p>　　我不是碰不到更好的， 而是因为已经有了你，我不想再碰到更好的 我不是不会对别人动心， 而是因为已经有了你， 我就觉得没必要再对其他人动心 我不是不会爱上，别的人， 而是我更加懂得珍惜你， 能在一起不容易， 已经选定的人就不要随便放手 世界上的好人数不奶奶，没能陪爷爷走过八十岁，外婆，也没能陪外公走过八十岁。一直在想，我们是？否能一起走过八十岁。在六十岁的某一天，一起牵手回忆昔日的点滴 不

Delphi 10.2.3 新增的TMimeTypes类，利用url中的文件扩展名，可以轻松得到url需要返回的类型,查看AddDefTypes方法，几乎涵盖了所有的文件类型。为了使用TMimeTypes，我们不必建立他的实例，直接使用TMimeTypes.Default属性，这个属性是个类属性，可以直接使用并返回TMimeTypes的实例。 class property Default: TMi

在win7 64位系统下, 一个DELPHI写的DLL注入一个C语言程序后. 出现非常奇怪的浮点数相加出错的情况. (注: 在XP系统下是正常的). 比如: 40725.0001597563 + 0.72490458022 (两个数值均为Double类型). 正确答案是: 40725.72506433652 但是..... 在注入的DLL里面计算的结果是: 40725.7251502359 请大家

在几个月前发现该问题，程序设置MainForm不可见，启动后使用ShellExecuteEx以管理员权限启动另外一个EXE。 在弹出系统UAC界面后，弹出System Error 1400错误，RAD10.2上未弹出错误，但在接下来的几秒钟程序占用CPU非常高，  XE7编译的程序一旦出现错误，会导致delphi IDE窗口都被隐藏了，需要结束进程重新打开，调试状态下IDE弹出如下错误，和编译好的

先定义两个函数 function sumX(x, y: Integer): Integer; function sumY(x, y: Integer): Integer; inline; 计算函数执行时间 procedure TForm5.Button5Click(Sender: TObject); var sw: TStopwatch; i, j: Integer; be

目录 简介 示例脚本 相关参考 在进行 WPF 程序打包发布的时候如果对程序打包没有特别高的要求，InnoSetup 足以胜任普通的程序打包发布需求，它支持安装包加密，安装包升级安装，注册表操作等常规功能，以下脚本示例中有对常见操作进行相关说明。 简介 Inno Setup用Delphi写成，其官方网站同时也提供源程序免费下载。它虽不能与Installshield这类恐龙级的安装制作软件相比，但也

对照表： http://docwiki.embarcadero.com/RADStudio/Tokyo/en/Compiler_Versions     procedure TForm1.Button1Click(Sender: TObject); begin    ShowMessage(System . CompilerVersion . ToString()); end ;   当软件在多个

1 Object Passal的程序结构很特殊，与其它语言如C++，Object Windows等结构都不同。一个Delphi程序由多个称为单元的源代码模块组成。使用单元可以把一个大型程序分成多个逻辑相关的模块，并用来创建在不同程序中使用的程序库。 2 8.1 Program单元 3 　 Program单元就是Delphi中的项目文件。 4 　 Program单元是一个特殊的单元

原始文章： https://blog.csdn.net/blog_jihq/article/details/11737699# 使用TADOConnection对象连接网络数据库（以MySQL为例），当本地网络断开时，连接对象的Connected属性不会发生变化，一直是True。 即使将连接对象的KeepConnection属性设置为false，若网络断开，在不尝试连接数据库的情况下，Connec

1 常用【属性】 2 　Action：该属性是与组件关联的行为，允许应用程序集中响应用户命令 3 　Anchors：与组件连接的窗体的位置点 4 　Align：确定组件的对齐方式 5 　AutoSize：确定组件是否自动调整其大小 6 　BiDiMode：（所有组件） 为从右向左写的语言提供支持 7 　BoundsRect：定义组件边框矩形(只适用于运行时）

unit NetFunc; interface uses SysUtils, Windows, dialogs, winsock, Classes, ComObj, WinInet, Variants; // 错误信息常量 const C_Err_GetLocalIp = ‘获取本地ip失败‘; C_Err_GetNameByIpAddr = ‘获取主机名失败‘

Case 语句 If...Then…Else 语句适合选项较少的情况，如果有很多选项的话利用If 语句就比较麻烦，在这种情况下，Case 语句就容易多了。Case 语句的语法如下： case <表达式> of <数值>:<语句>; <数值>:<语句>; else <语句>; end;   下面这个例子中的S 为Char 类型。当用户输入一个字符后按回车键确认后判断变量S，如果是小写或大写

我是一个经验丰富的Java程序员，在过去几年里一直在做一些Win32的工作。主要是我一直在使用VB6，但是我真的需要改进一些东西。 我花了一个月左右的时间与Delphi 2009一起玩。我喜欢VCL GUI的东西，Delphi似乎比VB6更适合于Windows API调用，我真的很喜欢OO比VB6好多了，而且我喜欢这个单元IDE附带的测试框架。 但是我真的很困惑，因为没有广泛使用的Delphi垃圾

    Ribbon上包含以下一些元素，如图所示： 元素对应API： Element Ribbon API Quick Access Toolbar RibbonControl.Toolbar RibbonQuickAccessToolbar.ItemLinks Application Button RibbonControl.ShowApplicationButton RibbonControl

delphi 获取网卡信息(支持多网卡) unit LGetAdapterInfo; interface uses Windows, SysUtils, Classes; const MAX_HOSTNAME_LEN = 128; { from IPTYPES.H } MAX_DOMAIN_NAME_LEN =

IMyInterface = interface(IInterface) [‘{63E072DF-B81E-4734-B3CB-3C23C7FDA8EA}‘] function F1 : Integer; stdcall; end; TFooBar = class(TBaseProperty, IMyInterface) function F1 : I

MD5 SHA1 SHA2 可以引用System.Hash单元 procedure TForm4.Button1Click(Sender: TObject); var md5: THashMD5; begin Edit2.Text := md5.GetHashString(Edit1.Text); //生成32字符长度的MD5 Edit3.Text := md5.GetHMAC(Edi

我们在用Delphi编译完程序，准备发布产品时，总希望随产品发布个性信息以标示产品的来源以及开发者等信息，就像windows的程序一样，使我们一看属性就知道他是微软的产品，这些在Delphi中是如何实现的呢？下面我就来给大家演示和说明给exe,dll文件添加版本信息的方法。 第一，给exe文件添加版本信息。 这个我想大家都会添加的，Delphi已经给我们提供了相关选项了. 具体做法:打开你的工程，

Delphi 启示 #1 – kbmMW Smart client on NextGen (Android) – 作用域问题 以更高级的方式使用kbmMW smart client,在Android设备上，我遇到了问题。 通过继承TInvokeableVariantType，kbmMW smart client可以使用Delphi支持的特殊类型的自定义Variant，从而可以写在项目中不存在的过程

参数可以分为: 默认参数(传值)、var(传址)、out(输出)、const(常数)四类 {默认参数是传值, 不会被改变} function MyF1(x: Integer): Integer; begin Inc(x); Result := x; end; {var参数是传址, 会被改变} function MyF2(var x: Integer): Integ

Delphi TStringList的用法 TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。 TStringList 常用方法与属性:  var List: TStringList; i: Integer; begin List := TStringList.Create; List.Add(‘Strings1‘); {添加}