3 respuestas en este tema

[enecumene]

Cabe aclarar que al pasar mucho tiempo programando PHP he perdido el hilo en Object Pascal , este es el asunto, estoy haciendo pruebas con una aplicación REST, el caso es que recibo todos los datos tanto Padre como hijo en un FDMemTable, todo bien, mi problema es al llenar esos datos con su relación Padre/Hijo (Un Padre un TListBoxGroupHeader y sus hijos un TListBoxItem), ya que esos datos no viene ordenados de tal forma, tengo los siguientes códigos para tratar de ordenar esa relación en el ListBox:
 

delphi

procedure GetProducts(DataSet: TDataSource; List: TListBox);
begin
  DataSet.DataSet.First;
  while not Dataset.DataSet.eof do
  begin
    if Dataset.DataSet.FieldByName('parent').Value = 'root' then
    begin
      ItemEncabezado := TListBoxGroupHeader.Create(List);
      ItemEncabezado.Text := Dataset.DataSet.FieldByName('name').Value;
      List.AddObject(ItemEncabezado);
      GetChildrens(Dataset,List,Dataset.DataSet.FieldByName('id').AsString);
    end;
    Dataset.DataSet.Next;
  end;
end;
 
procedure GetChildrens(DatasetParent: TDataSource; List: TListbox; ID: string);
begin
  DatasetParent.DataSet.First;
  while not DatasetParent.DataSet.eof do
  begin
    if DatasetParent.DataSet.FieldByName('id').Value = ID then
    begin
      ItemNormal := TListBoxItem.Create(List);
      ItemNormal.Text := DatasetParent.DataSet.FieldByName('name').Value;
      ItemNormal.ItemData.Accessory := TListBoxItemData.TAccessory(1);
      List.AddObject(ItemNormal);
    end;
    DatasetParent.DataSet.Next;
  end;
end;
 

y el resultado no es el esperado, porque sólo me muestra un sólo TListBoxGroupHeader con el Texto "MANZANA" y un sólo TListBoxItem con el Texto del mismo nombre, en el Dataset hay tres Campos, id, Parent y Name, los dos primeros está la relación, se supone que debería hacer recursividad pero la verdad es que llevo dias en esto .
 
A ver si me hechan un mano, Saludos.

[enecumene]

Retomando el Tema, he hecho un cambio desde el servidor REST, he hecho que me devuelva la jerarquía ya preparada, el resultado es algo así:
 

{
  "results": [
    {
      "id": "7",
      "parent": "root",
      "name": "ZAPATOS",
      "position": "1",
      "children": [
        {
          "id": "32",
          "parent": "7",
          "name": "Houdini'Pro",
          "position": "1"
        },
        {
          "id": "26",
          "parent": "7",
          "name": "Hush Puppies",
          "position": "2"
        }
      ]
    }
  ]
}

Todo bien con el debugger, sólo tengo el detalle que el campo children (hijos) me sigue saliendo en formato JSON, ¿cómo podría pasarlo a estilo Dataset?.

¿Alguna idea?.

Saludos.

[Agustin Ortu]

Que tal usando las clases de la unidad REST.Respone.Adapter?

 

 

TRESTResponseDataSetAdapter

 

TRESTResponseJSON

[enecumene]

Pues es lo que estoy utilizando, el problema en sí son los sub-arrays (un Array dentro de otro Array), todos los datos del array padre lo puedo manejar sin problema, los sub-arrays se muestran en texto aún en formato JSON y no como Campos del Dataset y es ahí el problema, estoy viendo a ver si manejo los datos con XSuperObject.

Saludos.