Delphi/Pascal论坛 今日: 0|主题: 70|排名: 43 

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

代码一 function IsEnCase(Vaule:String):boolean; //判断字符串是否为纯字母组合 var i:integer; begin Vaule:=trim(Vaule); //去空格知 for i:=1 to length(Vaule) do //准备循环 begin if ( Vaule in ['A'..'Z']) or ( Vaule in ['a'..'z']) then //如果Vaule的第i个字不道是A-Z或者a-z中的任一个回 begin result:=true; ...

核心代码 function IsNUM(Vaule:String):boolean; //delphi 判断字符串是否为纯数字组合 var i:integer; begin Vaule:=trim(Vaule); //去空格知 for i:=1 to length(Vaule) do //准备循环 begin if ( Vaule in ['0'..'9']) then //如果Vaule的第i个字不道是A-Z或者a-z中的任一个回 begin result:=true; //返回值 不是 end ...

目录absoluteabstractandarrayasasmassemblerautomatedbegincasecdeclclassconstconstructorcontainsdefaultdestructordispiddispinterfacedivdodowntodynamicelseendexceptexportexportsexternalfarfilefinalizationfinallyforforwardfunctiongotoifimplementationimplementsinindexinheritedinitializationinlineinterfac ...

1，起因 某delphi程序A使用了Indy9.0.18组件。机器中原本自带老版本的Indy组件9.0.12，后升级到9.0.18，使用一直正常。 某次操作将程序A重新build all了一下，结果提示如下信息，此后即便是compile也会出错。 [Fatal Error] uMain.pas(11): Unit IdServerIOHandlerSocket was compiled with a different version of IdServ ...

1， 怪异现象：字符串相加操作不正常！ 以上代码，明显输出字符串应含有后缀“.jpg”，但实际输出却不含后缀（如下），字符串加法操作似乎不起作用了！ 采用showMessage进行输出，看看结果如何？ 结果仍是不显示字符串后缀，但可以看到字符串偏左显示，似乎后面还有很多不可见字符。 2，怪异原因：字符串中含有\0，即字 ...

1，故障现象 一次程序运行，出现如下错误： 对应代码如下： 2，故障分析 Query_alert_2的语句在查询分析器中单独执行是正常的。排除语句出错。 如果注解掉Query_alert_1，则错误变为Query_alert_3执行出错： 2019-07-11 09:32:26 Query_alert_1执行完毕 2019-07-11 09:32:27 Query_alert_2执行完毕 2019-07-11 09:32:42 D ...

Delphi，是Windows平台下著名的快速应用程序开发工具(Rapid Application Development，简称RAD)。它的前身，即是DOS时代盛行一时的“BorlandTurbo Pascal”，最早的版本由美国Borland（宝兰）公司于1995年开发。主创者为Anders Hejlsberg。经过数年的发展，此产品也转移至Embarcadero公司旗下。Delphi是一个集成开发环境（I ...

背景说明： 前段时间开发一个数据转换的系统，业务逻辑中说明数据需要压缩成.tar.gz格式。 我在Windows系统下采用，先生成批处理文件，然后调用WinExec执行批处理文件，休眠等待一段时间，完成数据的自动压缩。 后来发现，待压缩文件的大小不确定，单纯的执行WinExec时Sleep固定时间，可能导致压缩失败、文件不全或损坏。 ...

已经钻DELPHI很深了，当然现在DELPHI是过了最辉煌的时代。但为什么要继续下去，而不转向其它的?这是不是死脑筋？ 我看了一下C#的LINQ的产生，然后又被实体框架所代替。思考了一下： 1）LINQ的确是有好处，但是所用的场景又不多，这样就会变得很鸡肋。所以说学新的东西，有时对自己来说不一定有相当大的好处。 2）软件编 ...

本文为大家分享了菜单组件TMainMenud的使用方法，供大家参考，具体内容如下 菜单组件TMainMenu 创建菜单双击TmenuMain，单击Caption就可以添加一个菜单项 菜单中添加分割线只需加“-”就可以添加一个分割线 级联菜单的设计 单击鼠标右键弹出菜单中选择Create Submenu菜单项 单选功能设计 要在设计的菜单项目中选择RadioI ...

Java、Php等语言中都有成熟的框架来解析Json数据，可以让我们使用很少的代码就把格式化好的json数据转换成程序可识别的对象或者属性，同时delphi中也有这样的组件来实现此功能，即IsuperObject。如果还没有这个组件的请在网上搜索下载或者在下面留言处留下你的邮箱向本人索取。 下面先说一下ISuperObject中几个常用的函数 f ...

　　在Windows Vista、 Windows7以上Windows系统中可以支持大图标显示了，但是Delphi编译出来的程序却只能显示32x32的图标，这使Delphi编译的程序看起来很不专业。下面就把Delphi编译大图标程序的方法分享一下。 　　要想使用大图标编译，首先要准备一个256x256的图标图片。 　　使用图标编辑软件，如IconWorkshop打开你的 ...

Delphi 实现软件自动升级的功能 原理简单，在FTP上维护一个Update.ini文件，里面记录着要更新文件的版本号，本地也有一个Update.ini文件，每次启动更新程序时，先从FTP上下载Update.ini文件到本地名字为Update_new.ini，然后比较这两个文件，如果新的版本号大于旧的，或者新的文件在就ini中没有，这些就表示要更新的文件， ...

Delphi实现获取进程列表及相关信息的实例 前言： 闲着没事，看着任务管理器好玩，查资料先简单实现一下，代码中没有加入获取CPU占用率的代码，这个代码网上很多，只是不喜欢那种写法，这里就不写了。以后继续完善，对于System Process和System的信息还没法获得，那位兄弟知道可以提个醒。  代码如下 unit Main; i ...

Delphi 常见文件处理及注册表文件的使用实例 前言：  Registry为我们提供了操作注册表的方法,这里我们用TRegIniFile提供的方法,TRegIniFile继承自TRegistry,TRegIniFile提供的方法类似于前面讲到的操作Ini文件的方法,这样就大大简化了我们操作"神秘"注册表的方法,下面是常用的方法: function CreateKey(const Key: ...

Delphi 在窗体上创建自己光标的实例 我们知道在文本框等可以接收输入的组件中，我们可以看到闪烁的光标，并可以输入文字，如果我们在，比如窗体上时，因为不支持输入，也无法显示闪烁的光标，那我们 有办法做自己的输入吗？当然可以，下面我们演示在Form上来输入文字。     用到的API函数如下 GetTextMet ...

Delphi 用DLL实现插件的简单实例 这是DLL的代码   实现代码：  library MyDll; uses SysUtils, Dialogs, Classes; procedure ShowInfo(infoChar);stdcall; begin ShowMessage('您选择了【'+info+'】'); end; function GetCaptionchar; begin Result := '中国'; end; exports ...

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

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