DELPHI
delphi 获取MD5
# 获取MD5 ## 代码 ```delphi uses System.Hash; procedure TForm1.Button1Click(Sender: TObject); var vStream: TMemoryStream; vBytes: TBytes; I: Integer; begi ......
Delphi实现禁止app截屏
修改AndroidManifest.template.xml，增加下面标粗的内容： <activity android:name="com.embarcadero.firemonkey.FMXNativeActivity" android:exported="true" android:exclud ......
delphi RTC 解析statucode 问题
开源的版本也一样会。 rtcinfo.pas ，以下的解析 StatusCode 有问题，如果服务器返回的是 “HTTP/1.1 200” 后面没有状态文本。会解析不到 状态码，这里应该按标准格式来，协议 空格 状态码 空格 状态文本 一个一个解析才对，但是RTC 认为状态码、文本是要一起有的。例子 ......
delphi TcxGridPopupMenu控件学习笔记
TcxGridPopupMenu控件用来给cxgrid设置右键菜单的.它长这样 属性面板长这样: 默认的系统菜单长这样: 这菜单上面有好几个选项我不想要,怎么办?隐藏它呗! private { Private declarations } procedure StdHeaderMenuPopup(S ......
Delphi - 简单实现 优先队列
由于Delphi官方没有实现优先队列容器，我自己也懒得用二叉堆去实现，这里用List简单实现一个优先队列； unit Unit3; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, Sy ......
DateTimePicker如何与Delphi自带Style同步
原文出处：DateTimePicker如何与Delphi自带Style同步 - 封三郎 - 博客园 (cnblogs.com) Delphi 的 DateTimePicker 组件有一个CalColors属性，可以设置 DropDown 打开的日历节目的风格。但如果不使用 Delphi 自带的 St ......
delphi cxGrid做一个空白的出/入库单
效果图: 实现的原理: 1.在数据库建一个表,然后绑定到cxgrid上面.数据表各字段的数据类型,按你的业务需求来设置,同时要允许空值,因为我们必须让它们保持空值,这样在绑定到cxgrid时,才会是空白的,然后再弄个自增的主键ID.下面这张图是我研究时截的图,不想改了,凑合着用吧 2.绑定过程略. ......
delphi cxgrid截图
效果图: 点击GetImage,会在程序目录下生成一个表格截图的图片文件,打开后如下图: 以下是代码: procedure TForm4.SpeedButton1Click(Sender: TObject); var gridView: TcxGridDBTableView; focusedItem ......
delphi Format格式化函数
delphi Format格式化函数 Format是一个很常用，却又似乎很烦的方法，本人试图对这个方法的帮助进行一些翻译，让它有一个完整的概貌，以供大家查询之用： 首先看它的声明： function Format(const Format: string; const Args: array of ......
Delphi-Delphi通过管道执行外部命令行程序（cmd）并获取返回结果
相关资料： https://www.shuzhiduo.com/A/gGdXxNGmd4/ Delphi通过管道执行外部命令行程序（cmd）并获取返回结果 实例代码： unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System ......
delphi 初识内存流: 从设置用户头像到从数据库存取图片到的过程
所谓"流", 就是一段数据或是一块内存;在进行流操作时, 我们不必关心流中的数据到底是什么; 只需要知道流的大小和当前的指针位置. 所以流只有两个属性: Size、Position.对流的操作, 不过就是读取和写入. 所以流最主要的方法就是 Read 和 Write.在很多控件的使用中, 读取主要用 ......
delphi cannot make a visible window modal报错的解决过程
抛出问题: 排除过程: 1.在TFrmChangePW窗口的create事件里打断点,结果发现,根本没停顿,所以判断问题不在TFrmChangePW窗体里,而是showmodal这语句里出了问题,点中断,跳到抛出错误的地方: 2.if 里的四个条件,检查了第一个,第二个和第四个都是没问题的,第三个( ......
Delphi工具开发的windows应用程序，自动化测试工具
DUnit：DUnit是一种单元测试框架，可以帮助开发人员编写单元测试用例，测试Delphi应用程序的各个模块和组件。 TestComplete：一个功能强大的自动化测试工具。可以对Delphi应用程序进行测试，支持多种脚本语言和测试框架，如JScript、VBScript、Python、JUnit ......
Delphi取整函数
Uses Math floor 和 ceil 是 math unit 里的函数，使用前要先 Uses Math。trunc 和 round 是 system unit 里的函数，缺省就可以用。floor 直接往小的取，比如 floor(-123.55)=-124，floor(123.55)=123t ......
delphi FastReport 自定义预览窗口显示报表
FastReport 自定义预览窗口显示报表 属性和方法 TfrxReport.Preview property Preview: TfrxCustomPreview; 指向 TfrxPreview 组件的链接，在其中显示完成的报表。如果此属性为空，则在标准预览窗口中显示报表。 TfrxPrevie ......
Delphi 系统[26]关键字和保留字 of、as、is
1、定义： of ：用于和其他关键字构成指定的结构。of可以与 case, class, array, file, set, object 连用。 as ：用于将一个类对象当作另一种类型使用。 is ：用于判断对象是否属于某一类型。 2、示例： ? 1 2 3 4 5 6 7 8 9 10 11 1 ......
Delphi的TValue探索
一、TValue结构 TValue定义在System.Rtti.pas 通过调用Make(...),将任意类型数据转换为TValue通过调用ExtractRawData(...), ExtractRawDataNoCopy(...)将TValue转换为任意数据类型，两者区别是ExtractRawDa ......
delphi 互斥量,只允许运行一个实例
效果图: 代码超简单的: //在窗体类中定义一个私有字段 private Fmutex: THandle; procedure TFrmLogin.FormCreate(Sender: TObject); begin//创建一个命名的互斥量，确保同一时间只有一个实例在运行 //第三个参数是自定义的, ......
Delphi原子操作函数介绍
一、Delphi的原子操作函数 在System.SyncObjs单元中，有一个TInterlocked的密封类，其十多个类函数（class function）其实都是调用的System单元的原子操作函数，只是封装得更容易理解。 使用方法：如对一个数值加一，则直接b:= TInterlocked.In ......
快速认识Delphi--九五小庞
1、什么是Delphi: Delphi 不是一门编程语言，它只是一个IDE，和VS，Eclipse，VSCode,Pycharm... 一样，只是一个编程工具，但他主要是针对Pascal语言编程，因此很多时候，很多人把Delphi说成是一门编程语言，他只是用于Pascal编程的一个工具 2、学习De ......
delphi 操作 TEdgeBrowser 获取与设置 Cookie
delphi 11.2 完整源码下载 详情请查看源码,现提供部分代码供大家查看 DELPHI智慧战神-技术群 603146133 原来的群已被查封，请大家加新群 unit uYouYouMgt; interface uses uSimpleBase, uEdgeCls, uIdhttpEx, Sys ......
delphi 仿一下手机端淡入淡出的信息提示框
先看效果: 设计界面也很简单: 下面这个是个From,不是Frame.把它的边框设置为none,然后position设置在父级中央或者桌面中央,看个人喜欢吧.加个label,弯角搞一搞,其他也搞得好看一点.这里推荐SC组件.然后加个计时器.这里说一下定时器的interval属性,时间越长,越显得卡顿 ......
delphi 类似excle分割的分页多页显示
需要使用第三方控件：例如：DEV的 TcxPageControl、 tms的TAdvPageControl 和 TAdvOfficePage. 1、TcxPageControl 用法 （1）通过单元文件打开窗体 procedure WndProc(var Msg: TMessage); overri ......
delphi Variant 与 流（TStream）相互转换
Variant 与 流（TStream）相互转换 代码 Variant转TStream procedure VariantToStream(Stream: TStream; const Value: Variant); var p: Pointer; begin if VarIsNull(Value ......
delphi IDE里面的导航条太丑了,咱自己写一个
效果图： 嗯我们今天主要看下面这一部分的实现： 四个按钮是TscGPCharGlyphButton控件。上面一行显示记录位置和快速跳转的那一坨，它其实是由四个TscGPEdit控件拼接构成的。 红色括号3那里,其实是把边设置成了红色,而4这个则是设置边框不显示.然后两个控件高度一致,但要比最外面的1 ......
Delphi 获得文件大小的方法
Delphi 获得文件大小的方法 大概有这些： FileSizeByName（需要引用IdGlobal单元 ，XE版本已取消） GetFileSize （use Windows ，仅支持windows） FileSize（不能获得正在使用的文件大小） FileSeek TFileStream.Siz ......
delphi FastReport 从流（数据库）中加载和保存报表
FastReport 从流（数据库）中加载和保存报表 属性和方法 TfrxReport.LoadFromStream procedure LoadFromStream(Stream: TStream); 从流中加载报表。 参数 Stream 来源流。 TfrxReport.SaveToStream ......
Delphi FDMemTable内存表用法及简单操作函数封装（转）
在某些场景下当轻量级的应用需要在内存中缓存数量比较多且字段比较多的高频使用数据时。以前我都是采用Ini或直接使用sqlite数据库。JSON也试过基本无法或很难实现需要的功能，因为当涉及某一同类型对象多字段多列时不通过遍历基本无法直接取到或修改数据。这样就导致了效率的低下。比如你在写一个多任务多线程 ......
delphi 播放GIF动画
use GIFImg procedure TForm1.Button1Click(Sender: TObject); var pic_path:string; begin pic_path := ExtractFilePath(ParamStr(0)) + 'img\gif\loading.gif' ......
delphi 函数提示与注释
效果是在IDE里输入函数名称后,在下方出现你对这个函数的注释内容: 源码: 参考地址:https://docwiki.embarcadero.com/RADStudio/Sydney/en/XML_Documentation_Comments 以上内来源: Delphi研习社②群 @球球 ......