Vielleicht Hilft das
https://jsontodelphi.com/
du fügst deinen JSON ein und bekommst eine Klasse mit Load und Save Funktion
Json:
Code:
{
"Value1":1,
"Value2":"Str"
}
Delphi-Quellcode:
unit RootUnit;
interface
uses
Pkg.Json.DTO, System.Generics.Collections, REST.Json.Types;
{$M+}
type
TRoot =
class(TJsonDTO)
private
FValue1: Integer;
FValue2:
string;
published
property Value1: Integer
read FValue1
write FValue1;
property Value2:
string read FValue2
write FValue2;
end;
implementation
end.
der Aufruf erfolgt dann mit
Delphi-Quellcode:
Var
Obj:TRoot;
begin
Obj:= TRoot.Create;
Obj.AsJson := Edit1.Text;
(ungetestet nur ein grobes Beispiel)