uses System.JSON;procedure TForm1.Button1Click(Sender: TObject);var m_Object, m_Json1, m_Json2: TJSONObject; m_JsonArray: TJSONArray;begin m_Object := TJSONObject.Create; try // JSON数组 m_JsonArray := TJSONArray.Create; // 数组成员一 m_Json1 :
Uses System.JSON;Var FDQuery : TFDQuery;field_name,Collumnname,CollumnValue : String;I: Integer;LJSONObject:TJsonObject;begin FDQuery := TFDQuery.Create(nil); try FDQuery.Connection := FDConnection1; FDQuery.SQL.Text := query; FDQ
unit Unit4; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, DBGridEhGrouping, ToolCtrlsEh, DBGridEhToolCtrls, DynVarsEh, Vcl.StdCtrls, EhLibVCL, Grid
需要toolbar关联imagelist组件，imagelist组件添加需要的图片，在toolbar新建按钮，按钮中选择相应图表。
一、读取网页的如下：复制代码uses TxHttp, Classes, TxCommon, Frm_WebTool, SysUtils;var m_Url: string; m_Http: TTxHttp; m_PostData: string; m_WebSource: string; m_Stream: TStringStream;begin m_Http := TTxHttp.Create; // 网址 m_Url := Trim(Form_WebTool.Labeled
Delphi10.3通过Json.Serializers单元对大量数据序列化一、参考我之前的博客，Delphi可以很方便的把类和结构体转换成JSON数据，但是数据量大了，就会非常之慢，1万条数据需要20秒左右。如果引用Serializers单元，那么100万数据只需要4秒左右，每秒处理20万+,速度还是很快的。二、写一个简单的类复制代码 TPeople = class private FName: string; FScore: Integer; FAge: TDateTime;
用Delphi10.3构造一个JSON数据的第三种方法，并格式化输出，代码如下：复制代码uses // System.JSON, System.JSON.Types, System.JSON.Writers, System.JSON.Builders;procedure TForm1.Button3Click(Sender: TObject);var m_StringWriter: TStringWriter; m_JsonWriter: TJsonTextWriter; m_JsonBu
用Delphi10.3构造一个JSON数据的第二种方法，并格式化输出，代码如下：复制代码uses //System.JSON, System.JSON.Types, System.JSON.Writers;procedure TForm1.Button2Click(Sender: TObject);var m_StringWriter: TStringWriter; m_JsonWriter: TJsonTextWriter;begin m_StringWriter := TStringWr