Delphi-Quellcode:
type
TData =
class(TObject)
FID:
string;
URL:
string;
Command:
string;
Data: TStringlist;
private
public
constructor Create(AFID, AURL:
string; ACommand:
string; AData: TStrings);
end;
var
Datalist: TObjectlist;
...
constructor TData.Create(AFID, AURL:
string; ACommand:
string; AData: TStrings);
begin
inherited Create;
FID:=AFID;
URL:= AURL;
Command:= ACommand;
Data:=TStringlist.Create;
Data.Addstrings(AData);
end;
...
Data:=TData.Create(FID, AURL, ACommand, AData);
Datalist.Add(Data);
Der Code müsste schon zeigen was ich meine.
In AData sind 2 Einträge und in einem steht ein JSON Code mit einem Array, deshalb eckige Klammern.
Wenn ich aus der Liste ein Item auslese bekomme ich aber anstatt der Klammern %255B