본문 바로가기

Delphi/꿀팁

JSONArray에서 값 가져오기

var 
  I: Integer; 
  JsonArr: TJSONArray; 
  JsonValue: TJSONValue;
begin 
  ..
  
  for I := 0 to JsonArr.Count - 1 do begin 
    Memo1.Lines.Add(JsonArr.Get(I).GetValue('Name')); //또는 
    
    if not JsonObj.Get(I).TryGetValue<TJSONValue>('Name', JsonValue) then //가져오려는 Type과 일치 시킨다.
      Memo1.Lines.Add('Not Found!') 
    else 
      Memo1.Lines.Add(JsonValue.ToString); 
  end;
end;
반응형