Hi, ich habe das jetzt nur mal schnell im Editor runtergetippt damit du eine Idee bekommst wie so etwas ablaufen kann. Kann natürlich gut sein, dass hier und dort noch ein kleinerer Fehler drin ist. Aber das solltest du dann recht schnell in den Griff bekommen.
Delphi-Quellcode:
type
TProduct =
class
private
FId: Integer;
FTitle:
string;
public
property ID: Integer
read FId
write FId;
property Title:
string read FTitle
write FTitle;
end;
TProductList =
class
private
FProducts: TArray<TProduct>;
public
property Products: TArray<TProduct>
read FProducts
write FProducts;
end;
implementation
function ConvertToObject(s:
string): TProductList;
begin
try
Result := TJson.JsonToObject<TProductList>(s);
except
on E:
Exception do
begin
// Log exception here
end;
end;
end;
PS: Deine Delphi Version im Profil wäre hilfreich. Die
Rest.Json
Klasse gibt es nämlich erst in den neueren Delphi Versionen.