.. kennst Du schon diese Seite:
https://jsontodelphi.com/
Dort könntest Du eine Klasse daraus herstellen:
Delphi-Quellcode:
TData = class
private
FId: string;
FLocked: string;
published
property Id: string read FId write FId;
property Locked: string read FLocked write FLocked;
end;
TRoot = class(TJsonDTO)
private
[JSONName('data'), JSONMarshalled(False)]
FDataArray: TArray<TData>;
[GenericListReflect]
FData: TObjectList<TData>;
FSuccess: Boolean;
function GetData: TObjectList<TData>;
protected
function GetAsJson: string; override;
published
property Data: TObjectList<TData> read GetData;
property Success: Boolean read FSuccess write FSuccess;
public
destructor Destroy; override;
end;
Grüße
Klaus