Ler objeto json[URGENTEEE]
Olá, preciso ler cada objeto desse json, porém não estou conseguindo, so consigo se caso fosse um array de objetos(WTF??).
Delphi 7 e biblioteca TLKJSON
{
"conclusao":
{
"id_conclusao":1,
"conclusao_tipo":"1",
"usuario":"1080",
"pedido":"132",
"estado":"Espera."
}
}
Delphi 7 e biblioteca TLKJSON
{
"conclusao":
{
"id_conclusao":1,
"conclusao_tipo":"1",
"usuario":"1080",
"pedido":"132",
"estado":"Espera."
}
}
Tiago
Curtidas 0
Melhor post
Tiago
25/10/2017
depois de muito teste, eu consegui. Para quem tiver a mesma duvida, segue a resolução
jsonObj := TlkJSON.parseText(UTF8Encode(strList.Text)) as TlkJSONobject;
jsonObj := jsonObj.Field[''conclusao''] as TlkJSONobject;
Edit1.Text := jsonObj.NameOf[0];
Edit2.Text := jsonObj.FieldByIndex[0].Value;
jsonObj := TlkJSON.parseText(UTF8Encode(strList.Text)) as TlkJSONobject;
jsonObj := jsonObj.Field[''conclusao''] as TlkJSONobject;
Edit1.Text := jsonObj.NameOf[0];
Edit2.Text := jsonObj.FieldByIndex[0].Value;
GOSTEI 1