Ich bin dabei es so zu lösen:
Delphi-Quellcode:
for u := 0 to XMLbezahlen.DocumentElement.ChildNodes.Count - 1 do begin
bnode := XMLbezahlen.DocumentElement.ChildNodes.Get(u);
cdsBezahlen.Append;
cdsBezahlen.FieldByName('Position').asInteger := u;
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.FieldByName('Sitzrheie').AsString := bnode.ChildNodes.FindNode('SeatingCategory').Text;
cdsBezahlen.Post;
myFrame := TFrameTicket.Create(self);
myFrame.Parent := TabItem5;
myFrame.SetBounds(10, y, 237, 40);
myFrame.Visible := true;
y := y + 100;
myFrame.TicketName := cdsBezahlen.FieldByName('Name').AsString ;
myFrame.Category := cdsBezahlen.FieldByName('Sitzrheie').AsString ;
myFrame.Preis := cdsBezahlen.FieldByName('Kosten').AsCurrency;
end;
Jetzt steht die Medung, dass es eine Bezeichnung mit dem Namen FrameTickets schon gibt...