如何解决如何使用 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 举报,一经查实,本站将立刻删除。