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?