Obter Name de um Json.

08/01/2019

0

OI...
Sou meio novo aqui em Delphi tbm...
Gostaria de saber se a algum modo de obter o name do json, tipo guardar ele em uma string, so o name mesmo....
No delphi FMX...
Abrss...
Fernando

Fernando

Responder

Posts

23/08/2019

Fernando Ito

Falae Fernando,

segue um exemplo de como você pode fazer isso:

var
jsonObj, jSubObj: TJSONObject;
jv: TJSONValue;
begin
jsonObj := TJSONObject.ParseJSONValue(TEncoding.ASCII.GetBytes(Memo1.Text), 0)
as TJSONObject;

Memo1.Lines.Clear;

jv := jsonobj.Get('error').JsonValue;
jsubObj := jv as TJSONObject;

jv := jsubObj.Get('message').JsonValue;
jsubObj := jv as TJSONObject;

jv := jsubObj.Get('value').JsonValue;

ShowMessage(jv.Value);
end;

Um abraço,
ITO
Responder

23/08/2019

Fernando

Falae Fernando,

segue um exemplo de como você pode fazer isso:

var
jsonObj, jSubObj: TJSONObject;
jv: TJSONValue;
begin
jsonObj := TJSONObject.ParseJSONValue(TEncoding.ASCII.GetBytes(Memo1.Text), 0)
as TJSONObject;

Memo1.Lines.Clear;

jv := jsonobj.Get('error').JsonValue;
jsubObj := jv as TJSONObject;

jv := jsubObj.Get('message').JsonValue;
jsubObj := jv as TJSONObject;

jv := jsubObj.Get('value').JsonValue;

ShowMessage(jv.Value);
end;

Um abraço,
ITO


Obrigado pela resposta, vou testa.
Estou em outros projetos...

Mas muito obrigado mesmo.
Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar