Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.063 Beiträge
Delphi 12 Athens
|
AW: Informationen aus einem ClientDataSet auslesen
11. Jul 2014, 16:46
Delphi-Quellcode:
for u := 0 to XMLbezahlen.DocumentElement.ChildNodes.Count - 1 do begin
bnode := XMLbezahlen.DocumentElement.ChildNodes.Get(i);
for p := u-1 downto 0 do begin
if
(bnode.ChildNodes.FindNode('Name').Text = {...Name von Element mit Index "p"}) and (bnode.ChildNodes.FindNode('Name').Price = {...Preis von Element mit Index "p"})
then
break;
end;
if p>=0 then begin
cdsBezahlen.Append;
cdsBezahlen.FieldByName('Position').asInteger := i;
cdsBezahlen.FieldByName('ID').AsString := bnode.ChildNodes.FindNode('ID').Text;
cdsBezahlen.FieldByName('Name').AsString := bnode.ChildNodes.FindNode('Name').Text;
cdsBezahlen.FieldByName('Kosten').AsString := bnode.ChildNodes.FindNode('Price').Text;
cdsBezahlen.Post;
end else continue;
Gleich verhindern dass es in die Liste kommt; Wie wäre es damit?
XPath
Gleich nur das suchen, was man haben will.
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
|