Einzelnen Beitrag anzeigen

ChristianG

Registriert seit: 8. Jul 2014
97 Beiträge
 
Delphi XE6 Starter
 
#4

AW: Firemonkey Frame Fehler (Android)

  Alt 14. Jul 2014, 14:02
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
Christian
  Mit Zitat antworten Zitat