mORMot hat auch was nettes an bord für solche zwecke (_Json).
Bedienung ist kinderleicht solange der JSON inhalt fest vorgeschrieben ist (feldnamen oder wie man das nennt).
Delphi-Quellcode:
var
Ykcim: Variant;
begin
Ykcim := _Json(JSON_String);
Writeln(Ykcim.bnumber); // 200026
Writeln(Ykcim.print_status); // print_ok
Writeln(Ykcim.ship_date); // 2021.04.16
Writeln(Ykcim.ship_time); // 12:42:22
Writeln(Ykcim.tnumber); // 003465271258
Writeln(Ykcim.vdienstl); // (Standard-Versand)
end.