03 2019 档案
摘要：一、上源码 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.设置后运行效果如下图：
阅读全文
