UNICODE \u0027 in UTF8 decoden?

[wschrabi]

Hallo,
ich bekomme als JSON data den Datenwert " Test \u0027 und wetieren TEXT "
Wie kann ich dieses Unicode ?? \u0027 schon in einen Delphi String (Widestring von Delphi XE6) decoden?
Gibts da eine Routine die alle solchen comischen \uxxxx strings decoden kann?
DANKE

Walter

[Sir Rufo]

Ja, die JSON-Routinen :stupid:

[wschrabi]

bitte um Besipiel ich hab die JSON nicht mit den JSON routinen geparsed.
Kann man einfach damit auch ein Decoding machen? Bitte um bsp bin neuling was JSON angeht
danke herzlich.
w

Habe das hier gefunden:
procedure TfMain.loadScenarioData(aFilename: string);
var
vJSONScenario: ISuperObject;
vJSONArray: ISuperObject;
vJSONObject: ISuperObject;
vJSONScenarioValue: string;
I: Integer;
begin
vJSONScenario := TSuperObject.ParseFile(aFileName);

//BetFair Specific 'caption' key
vJSONArray := vJSONScenario.AsArray;
for I := 0 to vJSONArray.Length-1 do
begin
vJSONObject := vJSONArray[I].AsObject;
vJSONScenarioValue := vJSONObject.S['caption'];
cbScenario.Items.Add(vJSONScenarioValue);
end;
end;

Doch jetzt hab ich kein File sondern einen langen String. VIelleicht doof die Frage aber ein Tip wäre gut.

[Sir Rufo]

Schau mal da

• http://www.delphipraxis.net/188108-r...-klammern.html
• http://www.delphipraxis.net/188131-j...n-problem.html
• http://www.delphipraxis.net/173452-t...ct-parsen.html

[wschrabi]

Super, jetzt werd ich schlau, hoffe ich.:-D
Ja recht hilfreich , Du Profi! Aber das superobject kennt Delphi XE6 nicht, oder?
Was muss ich machen, damit ich es in der use clausel verwenden kann.
Habs schon im Netz gefunden bei github.

Aber macht das SO auch das UMsetzen von den UNICODE Sachen? Dann kann ich ein SO mit einem Feld im REcord machen,
und da lade ich den Journalname hinein. Ist dann das bloede \u0027 als UTF8 drin, sodass ich es im Memofeld als Lines dazuadden kann?

danke

[wschrabi]

Danke Sir Rufo,
bin wieder sehr viel Schlauer geworden und mit dem Superopbject klappt es auch super.
auch werden die Unicode decoded.
Besten DANK:lol: