An alle Programmierhengste: XML lesen

**p80286**

Du solltest, glaube ich, Deinen code einmal kritisch überprüfen:

Delphi-Quellcode:

			BodyJvRichEdit.Text := PostDataStream.DataString;

if Pos('<BODY>', BodyJvRichEdit.text) <> 0 then

begin

  Start := Pos('<BODY>', BodyJvRichEdit.text)+7;

  Ende := Pos('</BODY>', BodyJvRichEdit.text);

  Body := Ende - Start;

  bodytext := copy(BodyJvRichEdit.text, Pos('<BODY>', BodyJvRichEdit.Text)+6, Body+1);

  ArtikelAdsTable.FieldByName('Infotextbody').AsStri ng := bodytext;

end;

if Pos('<body>', BodyJvRichEdit.text) <> 0 then

begin

  Start := Pos('<body>', BodyJvRichEdit.text)+7;

  Ende := Pos('</body>', BodyJvRichEdit.text);

  Body := Ende - Start;

..

Da scheint einiges redundant zu sein.
wie wäre es mit

markieren

Delphi-Quellcode:

			Start:=Pos('<BODY>',uppercase(BodyJvRichEdit.text));

if Start>0 then ...

warum eigentlich ein Richedit? Eine Stringlist würde es doch auch tun?

Gruß
K-H

Edith:

Zitat von golffahrer:

Ich entnehme mir die Daten
aus den entsprechenden XML-Knoten und packe Sie in meine Datenbank..

Dann sollte man vielleicht doch einen Parser nutzen?

Zitat von golffahrer:

Wie gesagt, es funktioniert alles nur bei
einem Produkt hängt er sich auf und macht nicht mehr weiter. Ich denke es liegt an dem etwas längerem Datenblatt.
Das ist der einzige Unterschied.

Gewissheit könnte hier ein Debugger verschaffen

Gruß
K-H

An alle Programmierhengste: XML lesen

AW: An alle Programmierhengste: XML lesen

Forumregeln