TJSONObject.GetValue liefert immer Werte in doppelten Hochkommas

[exasoft]

Hallo @ALL,
ich arbeite mich gerade etwas in REST ein und habe da ein kleines Problem - ist bestimmt nix Wildes

Wenn ich die Werte auslese
zB so:
var
o: TJSONObject;
begin
o := FJSONArray.Items[FCurrentIndex] as TJSONObject;
edStrasse.Text := o.GetValue('strasse').ToString;

, um sie anzuzeigen, dann stehen die in edStrasse.Text immer mit beginnendem und abschliessendem dopp. Hochkomma "hinterm Berg".

Ist das nur ne Einstellung oder was mache ich falsch/fehlt da?

Wäre super..

Tks vorab

[Der schöne Günther]

Es gibt einmal GetValue(..) und GetValue<T>(..) .


Du kannst die Werte direkt als String, Integer, Single usw. auslesen indem du die generische Version benutzt:

edStrasse.Text := o.GetValue<String>('strasse');

[exasoft]

Danke erstmal für die Info, aber irgendwie verstehe ich das nicht.

Ich habe die Sourcen 1:1 aus einem Delphi-Skill-Sprint übernommen und da gabs dieses Problem nicht.
(https://www.youtube.com/watch?v=_P6waeTlhVc)

Auf jeden Fall Tks - ich versuche es mal so und schaue mir die Objekte mal näher an, was da evtl. noch so geht.

RW

[Schokohase]

TJSONValue.ToString() macht das Gleiche wie TJSONValue.ToJSON() und liefert den Wert als JSON zurück.

Ein JSON-String ist nun mal ein String mit Quotes.

Wenn du einfach nur den Wert (des JSON-String) haben möchtest, dann nimm TJSONValue.Value() .

[TigerLilly]

Vorsicht:

Code:

ToString
public
Returns a string containing the class name.

[Schokohase]

Zitat von TigerLilly:

Vorsicht:

Code:

ToString
public
Returns a string containing the class name.

Nein, tut es nicht und ein Klick entfernt findet man das:

Delphi-Quellcode:

function TJSONAncestor.ToString: string;
var
  Buf: TStringBuilder;
begin
  Buf := TStringBuilder.Create(256);
  try
    ToChars(Buf);
    Result := Buf.ToString(True);
  finally
    Buf.Free;
  end;
end;

Wie so oft ist die Dokumentation nur ein Anhaltspunkt, gerade wenn wir es mit virtuellen Methoden zu tun haben.

[TigerLilly]

Missverständnis: Ich wollte darauf hinweisen, was ToString üblicherweise macht. Dass ToString hier was anderes als den Klassennamen zurückliefert, ist eine Ausnahme (deren Sinn ich nicht sehe).

[Schokohase]

Zitat von TigerLilly:

Missverständnis: Ich wollte darauf hinweisen, was ToString üblicherweise macht. Dass ToString hier was anderes als den Klassennamen zurückliefert, ist eine Ausnahme (deren Sinn ich nicht sehe).

Die Methode ToString ist dafür da um eine String-Repräsentation der Klassen-Instanz zu bekommen. Diese Methode ist erstmalig bei TObject als virtual definiert (soll heißen: kann und darf überschrieben werden) und dort liefert diese einfach nur den Klassennamen zurück.

Diese Methode ist nicht dazu gedacht, den Klassennamen zu erhalten, das geht wesentlich besser über andere Wege.

So steht es auch in der Dokumentation:

Zitat:

Note: ToString is intended to be overridden in user-derived classes, to provide consumer objects with a string representation.

[Der schöne Günther]

TObject.ToString() ist nur so implementiert damit man überhaupt etwas hat. Besser als nichts 🤷

[rd3]

Hallo,

o.GetValue('strasse').Value;

sollte gehen. ToString ist hier nicht für gedacht.