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;
반응형