typhon例子：cs，bufDataset(类似delphi的clientDataset)，josn解析器

最新推荐文章于 2021-11-29 18:01:58 发布

老狼8848

最新推荐文章于 2021-11-29 18:01:58 发布

阅读量847

点赞数

分类专栏： Lazarus 文章标签： lazarus json bufdataset

本文链接：https://blog.csdn.net/bq_cui/article/details/52041691

版权

Lazarus 专栏收录该内容

168 篇文章 21 订阅

订阅专栏

粗略浏览了一下，很有意思的一个程序，服务器、客户端数据集交换。

其中 bufDataset 数据集加载json数据：

procedure TForm1.DoJSONToDataset;
var
  JSON: TJSONObject;
  P : TJSONParser;
  sJSON: string;
begin
  if memo1.text ='' then exit;   //=== ct9999 ==========

  try
    sJSON := memo1.text;

    BufDataset1.close;

    BufDataset1.Fields.Clear;

    P := TJSONParser.Create(sJSON);

    JSON := (P.Parse as TJsonObject);

    JSONToDataset(tdataset(BufDataset1),JSON);

    BufDataset1.Open;
    BufDataset1.first;

  finally
    P.Free;
    JSON.Free;
  end;
end;