Images RESTClient Json ke Listview Code Manual

Berikut cara menggunakan RESTClient tanpa menggunakan TogelDesignMode.

contoh coding memanggil json webservice dari restclient

RESTClient1.BaseURL := 'http://localhost/esurat/surat_masuk.php?act=tampil'; RestRequest1.ExecuteAsync();

untuk mengisi data json yg sudh di ambil restclient ke listview sebagai berikut:

procedure TForm1.Button2Click(Sender: TObject);
Var
        i : integer;
        item : TListViewItem;
        txt : TListItemText;
        img : TListItemImage;
begin
  for i := 1 to  FDMemTable1.RecordCount do
  begin
      item := ListView1.Items.Add;
      with item do
      begin
           txt := TListItemText(Objects.FindDrawable('Text1'));
           txt.Text := FDMemTable1.FieldByName('PENGIRIM').AsString;;
           txt.Font.Size := 11;
           txt.Font.Style := [TFontStyle.fsBold]; 

           txt := TListItemText(Objects.FindDrawable('Text2'));
           txt.Text := FDMemTable1.FieldByName('TANGGAL_SURAT').AsString;;
           txt.Font.Size := 11;
           txt.Font.Style := [TFontStyle.fsBold];
      end;
      FDMemtable1.Next;
  end;
end;