JSON in TFDQuery

[Blup]

Der Code müsste beim compilieren eigentlich Meldungen über nicht initialisierte Variablen verursachen.
Sind diese Warnungen etwa ausgeschalten?

Es ist sinnvoll GetNextJSValue aufzuteilen und sinnvolle Namen für Variablen zu verwenden:

Delphi-Quellcode:

function GetFieldValue(AObject: TJSONObject; const AFieldname: string): TJSonValue;
begin
  if Assigned(AObject) and (AFieldname <> '') then
    Result := AObject.Values[Feld]
  else
    Result := nil;
end;

function GetSubObject(AObject: TJSONObject; const AFieldname: string): TJSONObject;
var
  lValue: TJSONValue;
begin
  lValue := GetFieldValue(AObject, AFieldname);
  if Assigned(lValue) and lValue is TJSONObject) then
    Result := TJSONObject(lValue)
  else
    Result := nil;
end;

function GetSubArray(AObject: TJSONObject; const AFieldname: string): TJSONArray;
var
  lValue: TJSONValue;
begin
  lValue := GetFieldValue(AObject, AFieldname);
  if Assigned(lValue) and lValue is TJSONArray) then
    Result := TJSONArray(lValue)
  else
    Result := nil;
end;

Delphi-Quellcode:

   Get_FirstJSValue('data', StreamString, obj_data, FirstJSValue);
   Try
     obj_device       := GetSubObject(obj_data,         'device');
     obj_deviceStatus := GetSubObject(obj_device,       'deviceStatus');
     obj_workstep     := GetSubObject(obj_deviceStatus, 'workstep');
     obj_job          := GetSubObject(obj_workstep,     'job'); 
     obj_jobCustomer  := GetSubObject(obj_job,          'jobCustomer'); 

     arr_employees := GetSubArray(obj_deviceStatus, 'employees');
     if Assigned(arr_employees) then
     begin

[himitsu]

Zitat:

if Assigned(lValue) and lValue is TJSONArray) then

Da fehlt 'ne Klammer, aber egal ... braucht man eh nicht
if lValue is TJSONArray then

IS prüft auf NIL.
(aber Achtung, AS läßt NIL durch)