鼠标忙这段代码大概是用来演示鼠标的用法的。具体解释如下： 使鼠标指针为沙漏状。（以表示程序正忙）screen.Cursor:=crhourglass; 把（打开的）数据库关闭。adoQuery.close;（个人以为改成这样更好：if adoQuery.Active then adoAuery.cl ...
譬如上面的 record 可以这样声明: 还得有方法的实现(遗憾的是有些不能用 Ctrl+Shift+C 自动建立, 那就复制吧): Delphi for Win32 只支持 record 类型的运算符重载，而 Delphi .NET 还支持 class 类型的运算符重载下面是Delphi支持的可重 ...
在编程时候，尤其是在一个大的团队里面，遵守统一的编程规范是极其重要的。为所有的开发人员制定一个源代码书写标准，以及程序和文件的命名标准，使他们在编程时有一致的格式，这样，每个编程人员编写的代码能够被其他人理解，减少程序维护和移交的成本。 这里先只介绍关于Delphi语言的编程规范，暂时跳过文件、项目 ...
前言 基础知识讲了很多，但是并没有串联起来，所以我最近一直在准备个小项目，但是这个项目的要求不含有数据库部分，也就是数据持久存储的功能，此外不能含有网络功能，它只是对基础知识的一个总结，最后一点是这个项目可以后期进行扩展，加上网络和数据库部分，所以最终选择俄罗斯方块这个小游戏作为基础知识总结的结课项 ...
用一般的frxMEMOview 中文换行是瞎换,缺少数据,换成frxrichview 即可, frxrichview 使用注意点 1).Delphi中文很多时换行不正确 2).要在窗体上拖一个frxrichObject 3).绑定数据库控件跟frxMEMOview 一样,如[frxdbYingYe. ...
GetFileSize获取文件大小 封装成如下函数，可以直接使用： ...
项目背景 应欧美客户需求，需要将文件压缩成.tar.gz格式的文件，并上传给客户端SFTP服务器。 你懂的，7-Zip软件的显著特点是文件越大压缩比越高，在Linux系统上相当于我们Windows系统上WinRAR或者好压软件一样的存在。 7-Zip软件下载与安装 网上下载相关安装包并完成安装，找到 ...
看如下代码： 1 WinExec('mspaint.exe', SW_SHOWNORMAL); // SW_SHOWNORMAL = 1 系统画图 2 3 WinExec('write.exe', SW_SHOWNORMAL); // SW_SHOWNORMAL = 1 写字板 4 5 WinExe ...
通过WinAPI GetCursorPos实现鼠标位置的实时显示 有时候我们需要将鼠标的位置实时抓取出来，可以通过如下方式实现。 添加一个Timer控件，执行间隔改为100ms，双击控件输入如下代码： 在窗体Show事件中输入如下代码，调整下鼠标显示样式： 最终效果： 单元代码如下： ...
一般来说，用来扫描整个数据库表并修改每个记录的某一个字段的程序如下所示： with Table Do begin DisableControls;{在修改记录的过程中，使其它部件无效} First; {将记录指针指向第一条记录} while not EOF do begin <读取记录的一个字段值到 ...
分类：
数据库 时间：
2019-08-30 09:29:51
阅读次数：
98
