Topic: колличество строк в таблице
колличество строк в таблице заранее не известно
как вывести записи?
procedure DUAll;
var
NxTextColumn: TNxTextColumn;
JSONObject, JSONObjProp: TJSONObject;
JSONString: TJSONString;
JsonArray, JsonArrayCoord: TJSONArray;
i:integer;
begin
try
if http.Status() = 200 then
begin
JSONObject:=TJSONObject(TJSONObject.ParseJSONValue(http.responsetext));
if JSONObject <> nil then begin
JSONString:=TJSONString(JSONObject.GetPairByName('success').JsonValue);
if Pos('not session', JSONString.Value) > 0 then begin
timerAu.Enabled:=False;
frmAdmin.bAutorization.Caption:='Ошибка авторизации'; end else
if Pos('1', JSONString.Value) > 0 then begin
JSONString:=TJSONString(JSONObject.GetPairByName('days').JsonValue);
frmAdmin.bDays.Caption:='Осталось '+JSONString.Value+' дней';
frmAdmin.tgUserApp.Columns.Clear;
try
frmAdmin.tgUserApp.Columns.Add(TNxTextColumn);
except
end;
try
frmAdmin.tgUserApp.Columns.Add(TNxTextColumn);
except
end;
try
frmAdmin.tgUserApp.Columns.Add(TNxTextColumn);
except
end;
try
frmAdmin.tgUserApp.Columns.Add(TNxTextColumn);
except
end;
frmAdmin.tgUserApp.Columns[0].Color := clWhite;
frmAdmin.tgUserApp.Columns[1].Color := clWhite;
frmAdmin.tgUserApp.Columns[2].Color := clWhite;
frmAdmin.tgUserApp.Columns[3].Color := clWhite;
frmAdmin.tgUserApp.AddRow(6);//колличесво строк
JsonArray:=TJSONArray(JSONObject.GetPairByName('products').JsonValue);
for i := 0 to JsonArray.Size-1 do begin
JSONObjProp := TJSONObject( TJSONObject(JsonArray.Get(i)));
JSONString := TJSONString(JSONObjProp.GetPairByName('password').JsonValue);
frmAdmin.tgUserApp.Cells[0,i] := JSONString.Value;
end;
timerAu.Enabled:=False;
end;
end;
end;
except
end;
end;
у меня только так получается
for i := 0 to JsonArray.Size-1 do begin
frmAdmin.tgUserApp.AddRow(i+1);
но при этом одна лишняя строка