getHistory

procedure TFPrediksi.getData;
var
  Task : ITask;
begin
  Task := TTask.Create(procedure ()
  begin
    getHistory(region.ToString, range.ToString);
  end);
  Task.Start;
end;

procedure TFPrediksi.getHistory(reg, rg: String);
var
  arr : TStringArray;
  rw : Integer;
begin
  try
    try
      arr := fnParseJSON(DM.RClient, DM.RReq, DM.RResp, 'getHistoryP&region='+reg+'&range='+rg);

      if Length(arr) = 0 then
        Exit;

      if arr[0,0] = 'Null' then
        Exit;

      rw := Length(arr[0]);

      SetLength(arrHist, rw);
      stgMain.RowCount := rw;

      TThread.Synchronize(nil, procedure
      var
        bar : Integer;
      begin
        for bar := 0 to rw - 1 do
        begin
          arrHist[bar].tgl := StrToDateTimeDef(arr[0,bar], Now);
          arrHist[bar].target := StrToFloatDef(arr[1, bar], 0);
          arrHist[bar].hasil := StrToFloatDef(arr[2, bar], 0);
          arrHist[bar].error := arr[3, bar];
          arrHist[bar].PE := arr[4, bar];

          stgMain.Cells[0, bar] := FormatDateTime('dd mm yyyy', arrHist[bar].tgl);
          stgMain.Cells[1, bar] := arr[1, bar];
          stgMain.Cells[2, bar] := arr[2, bar];
          stgMain.Cells[3, bar] := arr[3, bar];
          stgMain.Cells[4, bar] := arr[4, bar] + '%';
        end;
      end);

    except
      on E: Exception do
      begin
        fnGetE(E.Message, E.ClassName);
      end;
    end;
  finally
    fnLoadingInfo(False);
  end;
end;