03 2020 档案
摘要：在Delphi中，类被当作一个类型来定义。其语法格式： type 类名=class（基类） {字段声明} {方法声明} {属性声明} end; 1、Delphi面向对象程序设计，要求对象都由某个基本对象继续而来，即由Class指定父对象。Delphi约定最基本的类是TObject，编程中我们所有的对象声明都是由ＴObject或由TObject派生的对...
阅读全文
摘要：1.复制 CopyFilefunction CopyFile(lpExistingFileName, lpNewFileName: PChar; bFailIfExists: BOOL): BOOL; stdcall;lpExistingFileName lpNewFileName bFailIfExists true:存在则覆盖文件，false相反举例：CopyFile('D:\1.txt'...
阅读全文
摘要：1.时间日期formatdatetime('yyyy-mm-dd', now())：按指定格式格式化当前日期2.字符串trim(' test ')去除两端的空格
阅读全文
摘要：OutputDebugString(PChar('这是一个测试信息'));查看日志：view—>Debug windows –>Event log
阅读全文
摘要：动态载入方式是指在编译之前并不知道将会调用哪些 DLL 函数， 完全是在运行过程中根据需要决定应调用哪些函数。方法是：用 LoadLibrary 函数加载动态链接库到内存，用 GetProcAddress函数动态获得 DLL 函数的入口地址。当一个 DLL 文件用 LoadLibrary 显式加载后，在任何时...
阅读全文
摘要：转载地址：https://www.cnblogs.com/del/archive/2007/12/04/982167.html分类范围字节备注 简单类型序数整数Integer-2147483648 .. 21474836474有符号32位 Cardinal0 .. 42949672954无符号32位 Shortint-128 .. 1271有符号8位 Smallint-32768 .. 3...
阅读全文
摘要：TStringList 类是在Delphi使用最广的一个对像，我们这里一起来看看 TStringList 的详细用法. 先把要讨论的几个属性列出来： 1、CommaText 2、Delimiter & DelimitedText 3、Names & Values & ValueFromIndex T
阅读全文
摘要：1.ExeName。ExtractFileName(Application.ExeName)得到文件名： ExtractFilePath(Application.ExeName)得到全路径，到最后一层目录，不包括应用程序。 ExtractFileExt(Application.ExeName)得到文
阅读全文
摘要：原文地址：https://www.cnblogs.com/xumenger/p/4427723.html Delphi中表示跳出的有break，continue，abort，exit，halt，runerror等1.break 强制退出最近的一层循环（注意：只能放在循环里；而且是只能跳出最近的一层循环），用于从for、while、repeat语句中强制退出 类似于C/C++等语言中的break...
阅读全文
摘要：原文地址： https://www.cnblogs.com/jijm123/p/11304965.html当Close是一个主窗体时,程序会退出.Close会发生FormClose事件,FormCloseQuery事件Halt会发生FormDestory事件,Application.Terminate以上三个事件都不会发生Application.Terminate就是程序结束了。整个程序结束运行，...
阅读全文
摘要：用win32 API的CreateMutex来实现。HANDLE CreateMutex( LPSECURITY_ATTRIBUTES lpMutexAttributes, // 指向安全属性的指针 BOOL bInitialOwner, // 初始化互斥对象的所有者 LPCTSTR lpName // 指向互斥对象名的指针 );例如：var hMutex:...
阅读全文
摘要：//例1:begin raise Exception.Create('抛出异常');end;//例2:begin raise Exception.CreateFmt('%s %d', ['错误代码:', 999]);end;//例3:var exc: Exception;begin exc := Exception.Create('发现异常'); raise exc;end;——————...
阅读全文
摘要：**.Create(AOwner:TComponent); //AOwner:创建者Create(nil);//这种方式创建的对象需要自己释放内存 Create(Self);//由self对象负责释放创建的对象，当Self释放时自动触发释放Create(Application);//当Application释放时自动释放————————————————版权声明：本文为CSDN博主「踏雪寻梅i」的...
阅读全文
摘要：转载地址：https://www.cnblogs.com/jijm123/p/11367393.htmlnil：空指针，空地址，对象也是指针，所以可以object := nil;null：null是一个未定义值的变量，既不是0也不代表空字符串，它是未定义的。判断对象为不为空：if assigned(object) then 和if object = nil then 都一样可以。nil是空指针，而...
阅读全文
摘要：转载地址：https://www.cnblogs.com/findumars/p/7147523.html1.启动delphi7。2.File-->Open Project ...打开TMS component 源目录下的“tmsd7.bpg”。3.在打开的窗口列表中，依次在各选项上点击鼠标右键，选择“Install”。4.将源目录下所有的pas文件、dfm文件及“tmsdefs.inc”文件拷贝...
阅读全文
摘要：MSComm控件有27个属性，其中一部分可缺省设置为不用，常用的属性如下: (1) CommPort:设置串行口选择。缺省值为1，选择为COM1;若赋值为2，则选择COM2。(2) PortOpen:设置通信端的状态。设置为True时，打开端口;设置为False时，关闭端口并清除接受和发送缓冲区。(3) Settings:设置通信时的波特率、奇偶校验、停止位参数。(4) Inputlen:设置每次...
阅读全文
摘要：转载地址：https://blog.csdn.net/weixin_42026802/article/details/802813401 只有一个DCU文件的组件。 DCU文件是编译好的单元文件，这样的组件是作者不想把源码公布。一般来说，作者必须说明此组件适合Delphi的哪种版本，如果版本不对，在安装时就会出现错误。也正是因为没有源码，给使用者带来了不便，那就是一旦Delphi...
阅读全文
摘要：参考网址：https://download.csdn.net/download/xiaoyanmiao/994915用delphi7打开lib目录下的DCLNMF70.dpk右键选择“打开方式”，用delphi打开。点编译，然后将生成的.dcu文件全部复制到,delphi7的lib目录下。后面就是复制了！bin目录，将下面的一个文件复制到delphi7的bin目录下。将lib目录下所有的文件,除....
阅读全文
摘要：经常会有一些公共的操作，重复写代码是没有必要的，这个时候需要提炼并加以引用。1.创建inc文件，在文件中放入公共函数例如：2.在unit中引用inc用I都可以。 引用完成后就可以直接用上面的函数了。
阅读全文
摘要：1.注释单行，用 //2.多行注释,用 {} 或 {* *}
阅读全文
摘要：解决办法：1.把label的autosize设置为false这一步做完一般就没有问题了。2.label的font设置为宋体，大小为10，字符集为chinese_gb2312.
阅读全文
摘要：点击Component—>Install Component 点击“install”，安装完成后：
阅读全文
摘要：如果运行一个耗时的循环，可能会导致程序不会响应用户的其它操作，例如鼠标点击。这个时候可以在循环中添加Application.ProcessMessages，以便于在循环执行到此代码时，应用能够响应用户的操作。这里的用户操作仅限于对此应用的操作，用户对其它软件或操作系统的操作都是可以的。我之前写过一个抽奖小程序，在一个对号码随机抽取的循环中，发现无法点击程序的其它按钮。
阅读全文
摘要：1.准备好控件相关文件 下载地址: https://files.cnblogs.com/files/huiy/MSComm32%E4%B8%B2%E5%8F%A3%E6%8E%A7%E4%BB%B6.zip 2.利用BAT来完成安装。 register.bat： 用管理员身份运行CMD。 3.在de
阅读全文
摘要：利用 BAT脚本和任务计划程序来完成。1.BAT@echo on set nginx=d:\logs\nginx set history=d:\logs\nginx\history md %history% net stop nginx set "Ymd=%date:~0,4%%date:~5,2%
阅读全文
摘要：如题，去掉devtools引用即可。
阅读全文
摘要：eclipse自动编译项目后，在problems中出现了许多Unable to load annotation processor factory，说找不到XXX.jar。解决办法：打开项目属性—》Java Compiler—》Annotation Processing—》Factory Path把
阅读全文
摘要：参考文章：https://www.cnblogs.com/LUA123/p/11447163.html请按照上面的链接按照cygwin，在配置镜像站点时，建议选择阿里的站点（http://mirrors.aliyun.com/cygwin/），速度很快。也可以试试下面的国内镜像。 1）上海交大的FT
阅读全文
摘要：利用Windows Service Wrapper来安装成服务，Windows Service Wrapper的下载地址请参见：https://www.cnblogs.com/huiy/p/12459356.html1.复制WinSW.NET4.exe，并重命名为redis.exe2.复制sampl
阅读全文
摘要：nginx本身不提供windows 的安装版本，需要利用Windows Service Wrapper来安装成服务。Windows Service Wrapper 实际上一个外壳，通过配置文件去启动和关闭目标程序。下载地址:https://files.cnblogs.com/files/huiy/W
阅读全文
摘要：在pom.xml中，aspectjweaver.jar版本指定过低，改成一个高版本即可。
阅读全文
摘要：<?xml version="1.0" encoding="UTF-8"?> <!-- 日志级别从低到高分为TRACE < DEBUG < INFO < WARN < ERROR < FATAL，如果设置为WARN，则低于WARN的信息都不会输出 --> <!-- scan:当此属性设置为true时
阅读全文
摘要：背景说明：在tomcat中发布应用，最简单的办法就是放在webapps中，简单省事！但是也有弊端，就是如果其下有多个应用，那么我们不得不加上应用名称，这就有点不方便了。现在经常用nginx做前端，反向代理到tomcat，用域名直接访问应用，省略tomcat端口及应用名称。这个时候就需要我们在一个to
阅读全文
摘要：不同项目开发时，其基础的组件很可能是一样的，例如springboot,数据库连接池，驱动等等。如果把这些相同的JAR在tomcat中共享，这样既可以节约内存，也可以减少各应用的大小。我用的是Tomcat9，各版本差别不大。具体做法：1.catalina.properties蓝色部分就是需要修改的部分
阅读全文
摘要：// 等比例缩放 var bili = 1; if (imgWidth > imgHeight && imgWidth > 400) { bili = imgWidth / 400; imgWidth = 400; imgHeight = imgHeight / bili; } else if (i
阅读全文
摘要：@SuppressWarnings("rawtypes") @Bean public CacheManager cacheManager(RedisTemplate redisTemplate, ConfigApp configApp) { RedisCacheManager redisCacheM
阅读全文
