随笔分类 - Delphi相关
Delphi相关内容记录
摘要：运行之后的效果如下， 图一 图二 主界面代码如下 Serv_Menu代码如下 菜单窗口代码如下
阅读全文
摘要：安装QPlugins里面的Demo,复制粘贴着写了一个最简单的插件，看看好不好用 EXE代码如下： unit Main_Frm; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, Sys
阅读全文
摘要：在Delphi的接口中，是不需要释放的，调用完之后，接口的生命周期就结束了，如下面的例子 调用单元如下
阅读全文
摘要：uSayHello代码如下 调用单元如下
阅读全文
摘要：由于是IInterface，申明了SayHello，需要由继承类来实现函数，相对于03篇可以再精简一下 界面代码如下
阅读全文
摘要：IInterface表示申明了一些函数，自己本身没有实现部分，需要由继承它的类来实现函数 uSayHello代码如下 界面代码如下
阅读全文
摘要：在上一篇02中，写到的sayhello函数，需要使用2个接口参数，很繁琐。可以使用as参数，把多重继承的子类对象变成需要的对象 uSayHello代码如下 ufrmSayHello代码如下
阅读全文
摘要：uSayHello类如下： 界面代码如下，接口调用函数的参数，使用父内函数。接口传参的时候，用子类传参数。
阅读全文
摘要：我想学习一个插件框架，但是那个框架里面大量用到了接口，于是不得不把接口看一下了。总感觉接口编程这一块非常的绕，每一行都注释了。
阅读全文
摘要：一、上源码 uses TxHttp, Classes, TxCommon, Frm_WebTool, SysUtils; var m_Url: string; m_Http: TTxHttp; m_PostData: string; m_WebSource: string; m_Stream: TS
阅读全文
摘要：一、读取网页的如下： uses TxHttp, Classes, TxCommon, Frm_WebTool, SysUtils; var m_Url: string; m_Http: TTxHttp; m_PostData: string; m_WebSource: string; m_Strea
阅读全文
摘要：一、Delphi读取JSON数组是非常方便的，首先我们网上找一段JSON数据 { "error": 0, "status": "success", "date": "2014-03-04", "results": [{ "currentCity": "成都", "weather_data": [{
阅读全文
摘要：一、参考我之前的博客，Delphi可以很方便的把类和结构体转换成JSON数据，但是数据量大了，就会非常之慢，1万条数据需要20秒左右。如果引用Serializers单元，那么100万数据只需要4秒左右，每秒处理20万+,速度还是很快的。 二、写一个简单的类 TPeople = class priva
阅读全文
摘要：一、我们定义一个简单的类 TPeople = class private FName: string; FScore: Integer; FAge: TDateTime; public property Name: string read FName write FName; property Sc
阅读全文
摘要：一、我们有一段JSON数据如下： { "五班": [ { "姓名": "张三", "成绩": 75.5 }, { "姓名": "李四", "成绩": 21.7 } ] } 二、使用Delphi代码读取，代码如下： uses System.Types, System.JSON, System.JSON
阅读全文
摘要：一、用Delphi10.3构造一个JSON数据的第三种方法，并格式化输出，代码如下： uses // System.JSON, System.JSON.Types, System.JSON.Writers, System.JSON.Builders; procedure TForm1.Button3
阅读全文
摘要：一、用Delphi10.3构造一个JSON数据的第二种方法，并格式化输出，代码如下： uses //System.JSON, System.JSON.Types, System.JSON.Writers; procedure TForm1.Button2Click(Sender: TObject);
阅读全文
摘要：一、用Delphi10.3构造一个JSON数据，非常之容易，代码如下： uses System.JSON; procedure TForm1.Button1Click(Sender: TObject); var m_Object, m_Json1, m_Json2: TJSONObject; m_J
阅读全文
摘要：1.Delphi VCL新版本的Cxgrid滚动条默认是触屏模式（如下图），很细的滚动条，在电脑版显示非常不方便。 2.如果需要改成传统的滚动条模式，需要设置一下LookAndFeel里面的ScrollbarMode的属性，sbmClassic就是传统滚动条模式（如下图） 3.设置后运行效果如下图：
阅读全文
摘要：Delphi通过CnPack源码模板功能，能快速添加注释，非常之好用，使用方法如下图： 1.选择CnPack的源码模板专家 2.设置Pacal标准过程头 3.设置内容如下，并且设置了Ctrl+W的快捷键： { 过程名: %ProcName% 日期 : %Year%.%Month%.%Day% 说明
阅读全文
浙公网安备 33010602011771号