Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.273 Beiträge
Delphi 10.4 Sydney
|
AW: XML parsen, aber wie
29. Mär 2017, 08:37
Hallo,
das ist ja das betreffende Stück
// Startzeile
<value><string>ErrorCode</string></value>
<value><string>200</string></value>
// Endzeile
</data></array></value>
In dem Fall würde ich das ganze in eine StringList packen,
die durchlaufen bis zur Zeile <value><string>ErrorCode</string></value>
(Pos()=1)
danach den Index an eine zweite Methode übergeben, und die durchläuft die StringList dann bis zum </data></array></value>
und holt sich per StringReplace('<value><string>','') und StringReplace('</string></value>','') die Errorcodes
Quick&Dirty halt
Du solltest bloss vor dem Benutzen einer Zeile (Sche, Ersetzen) ein Trim machen.
Heiko
|