如何使用 TStringGrid 在 Delphi FMX 中将整数值读入 TCheckColumn？

问题描述

我需要使 FMX.StringGrid 中的 TCheckColumn 从整数值开始工作，但我不知道如何操作。 我的代码从 JSON 请求中读取并将其转换为 stringgrid。在数据库中，“boolean”字段存储为整数，因此 0 表示假，1 表示真。 这是从请求中读取的代码：

procedure TDM.CarregaDados(aTable: string; aGrid: TStringGrid);
begin
  TThread.CreateAnonymousThread(
    procedure
    var
      str: string;
    begin
      aGrid.RowCount := 0;

      REST.Response := nil;
      REST.Resource := aTable;
      REST.Method := rmGET;
      REST.Params.ClearAndResetID;

      REST.Execute;
      RESTDSA.Response := REST.Response;
      RESTDSA.DataSet := RESTDS;
      RESTDSA.Active := true;

      TThread.Synchronize(nil,procedure
        var
          I: Integer;
        begin
          aGrid.BeginUpdate;
          while not RESTDS.Eof do
          begin
            aGrid.RowCount := aGrid.RowCount + 1;
            for I := 0 to RESTDS.FieldCount - 1 do
              aGrid.Cells[I,aGrid.RowCount - 1] := RESTDS.Fields.Fields
                [I].AsString;
            RESTDS.Next;
          end;
          aGrid.EndUpdate;
        end);
      REST.ClearBody;
      REST.Params.ClearAndResetID;
    end).Start;
end;

REST 是 TRESTRequest 组件，
RESTDS 是 TFDMemTable，
RESTDSA 是 TRESTRequestDataSetAdapter 组件，
aGrid 是一个 TStringGrid 和
aTable 是端点资源。

我想知道的是如何调整此代码以使其与网格中的 TCheckColumn 一起使用。是的，当然我有一个 TIntegerColumn、一个 TStringColumn 和一个 TCheckColumn 之前添加到网格中。

这是一个 JSON 响应示例：

[
  {
    "ID" : 1,"Descr" : "test","ischeck" : 0
  },{
    "ID" : 2,"ischeck" : 1
  }
]

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）