Hat jemand eine Idee was an dem quellcode falsch ist?
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.Name :=Format( 'fr%s',[InttoStr(u)]);
myFrame.Parent := TabItem5;
myFrame.SetBounds(10, y, 237, 40);
myFrame.Visible := true;
y := y + 50;
myFrame.TicketName := cdsBezahlen.FieldByName('Name').AsString ;
myFrame.Category := cdsBezahlen.FieldByName('Sitzrheie').AsString ;
myFrame.Preis := cdsBezahlen.FieldByName('Kosten').AsCurrency
end;
Dies ist mein Programmcode aus meiner Hauptunit. Vielleicht hilft diese weiter