Zeichenkette zerlegen...

[himitsu]

VarIsNumeric...

Ja, wie der Name schon sagt ... einfach prüfen, ob im Variant ein nummerischer Wert drin steckt

Delphi-Quellcode:

Result := TryStrToFloat(String(AValue));

// aber TryStrToFloat kennt dein Delphi wohl nicht

var 
  E: Integer;
  F: Single;
Val(String(AValue), F, E);
Result := E = 0;

[edit]
halt nee, String() könnte auch noch eine Exception auslösen

Delphi-Quellcode:

try
  StrToFloat(String(AValue));
  Result := True;
except
  Result := False;
end;

[delphinia]

ich habe mit mit dem parser "uJSON" beschäftigt musste zwar auch da eine oder andere.... Aber habe es im Inet gefunden was fehlte bzw verändert und er scheint zu laufen, da ich es nur zum Lesen brauche hoffe och das er mich nicht im Stich lässt!


Noch einmal DANKE an Euch alle die hier echt super geholfen haben!

[idefix2]

Die Frage ist, ob es nicht anders einfacher geht, weil eigentlich brauchst Du doch keinen kompletten Parser.

Wenn Du irgend eine regex Bibliothek findest, die unter Delphi5 läuft, dann sollte es kein grosses Problem sein, dieses eine spezielle Rückgabeformat, das Du hast, mittels regex in ihre Bestandteile zu zerlegen. Ist sicher einfacher, als ein umfangreiches Tool an D5 anzupassen, das zwar viel mehr könnte, aber von dem Du eigentlich nicht viel brauchst.


edit: Der Tipp kam offenbar zu spät - vielleicht umso besser