代码一 //正则版 uses RegularExpressions; //相关单元 function IsChineseStr(s: String): Boolean; const pattern ='[\x{4E00}-\x{9FA5}]'; //测试用的表达式 begin Result:=false; if TRegEx.IsMatch(s, pattern) th

Delphi 2023年09月01日  155

代码一 function IsEnCase(Vaule:String):boolean; //判断字符串是否为纯字母组合 var i:integer; begin Vaule:=trim(Vaule); //去空格知 for i:=1 to length(Vaule) do //准备循环 begin if ( Vaule[i] in ['A'..'Z']) or ( Vaule[i

Delphi 2023年08月16日  155

本文实例讲述了delphi制作wav文件的方法。分享给大家供大家参考。具体如下： 这里delphi用waveIn...函数制作wav文件 具体代码如下： //使用窗口接受音频设备发出的消息: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Cont

Delphi 2023年08月15日  131

本文以实例形式详细说明了Delphi获取句柄并发送消息的方法，具体用法说明如下： 查找另外一个窗口的句柄： handle := FindWindow(nil,PChar('窗口的标题'));//查到窗体句柄 查找子窗体： childHandle := FindWindowEx(handle,0,'子窗体类','子窗体标题'); 另外有个枚举子窗体的API

Delphi 2023年08月04日  149

本人是Delphi老程序员，开发Windows下异步底层通信组件已经好多年，最高性能的完成端口组件也已经实现好多年了，可以说对Winsock已经是相当熟悉，完成端口的运行机制也比较熟悉，所开发的组件应用于公司的系统，成功应答数千大数据量并发连接的考验，应该说技术上算是比较成熟稳定了。 我开发电脑上，目前使用2个版本的Delphi，古老的Delphi7和稍微新点的XE2，Delphi7

Delphi 2023年07月12日  85

Delphi 中内存映射对于大文件的使用 平时很少使用大文件的内存映射，碰巧遇到了这样的要求，所以把过程记录下来，当给各位一个引子吧，因为应用不算复杂，可能有考虑不到的地方，欢迎交流。 对于一些小文件，用普通的文件流就可以很好的解决，可是对于超大文件，比如2G或者更多，文件流就不行了，所以要使用API的内存映射的相关方法，即使是内存映射，也不能一次映射全部文件的大小，所以必须采取分块映射，每次

Delphi 2023年07月12日  127

因为一个项目,不得不将图片保存到数据库中,需要的时候再从数据库中读取.初时,以为很简单,不就是一个Stream.事实上,也很简单.度娘一下,代码也很多,但,都是坑! 看一下TImage的源,Picture.Graphic下有一个loadfromStream和SavetoStream.如果没有猜错,那么直接用这两个函数就可以了.于是,我做了一个demo测试 demo里放了两个TImage.TIm

Delphi 2023年07月12日  163

Delphi 根据字符串找到函数并执行的实例 关键字：MethodAddress：取得方法的地址，这个方法需要是published的。 实例代码： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms

Delphi 2023年07月12日  129

Delphi 2023年07月12日  136

本文以实例说明Delphi打印程序的实现方法。该实例可以检测系统中安装的所有打印机，枚举出这些打印机，主要功能代码非常简单，便于大家阅读与理解。 主要功能代码如下： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, D

Delphi 2023年07月12日  127