Rest JSON

[Sir Rufo]

Nun das TryGetValue arbeitet genauso wie alle Try Varianten (TryStrToInt , ...)

Delphi-Quellcode:

if LJSONObject.TryGetValue<string>( 
  { APath } 'author', 
  { out AValue } LStr ) then
  WriteLn( 'author found: ', LStr )
else
  WriteLn( 'author not found!' );

oder auf dein Beispiel angewendet

Delphi-Quellcode:

if MainForecast.TryGetValue<string>( 'title', LStr ) then
  Title := LStr
else
  Title := '';

Wenn dir das zu umständlich ist, dann bau dir einfach einen Helper

Delphi-Quellcode:

type
  TJSONValueHelper = class helper for TJSONValue
  public
    function GetValue<T>( const APath: string; ADefault: T ): T;
  end;

function TJSONValueHelper.GetValue<T>( const APath: string; ADefault: T ): T;
begin
  if not TryGetValue<T>( APath, Result )
  then
    Result := ADefault;
end;

und dann geht das einfach so

Delphi-Quellcode:

Title := MainForecast.GetValue<string>( 
  { APath } 'title', 
  { ADefault } '' );

[borstenei]

Danke Dir Sir Rufo für Deine Mühe,
super schlanke Lösung.
Allerdings bekomme ich das nur umgesetzt wenn Bezeichner vorhanden sind, in diesem Fall

Delphi-Quellcode:

 Categories := MainForecast.GetValue('categories') as TJSONArray;
         Kategorie := Categories.Items[0].Value;

bekomme ich das wieder nicht mit
TryGetValue umgesetzt.
Ich habe hier jetzt einfach ein
Try Except eingefügt.
Borstenei

[Sir Rufo]

Wieso das, ein simples If Assigned( Categories ) then reicht doch aus