Hallo liebe Delphi-Gemeinde.
Ich erzeuge dynamisch einen Frame und dort bekomme ich Einzelpreis und die Anzahl. Nun möchte ich den Gesamtpreis von allen Frames, die erzeugt wurden, ausrechnen.
Delphi-Quellcode:
ListIndex := TicketOverviewList.IndexOf( cdsbuchen.FieldByName('Name').Asstring );
if ListIndex > -1 then begin
myFrame2 := TFrame2(TicketOverviewList.Objects[ListIndex]);
end
else begin
myFrame2 := TFrame2.Create(self);
myFrame2.Name :=Format( 'frzwei%s',[InttoStr(u)]);
myFrame2.Parent := TabItem7;
myFrame2.SetBounds(10, y, 260, 40);
myFrame2.Visible := true;
y := y + 65;
myFrame2.Anzahl := 0;
TicketOverviewList.AddObject( cdsbuchen.FieldByName('Name').Asstring, myFrame2 );
end;
myFrame2.Anzahl := myFrame2.Anzahl + 1;
myFrame2.Preis := cdsbuchen.FieldByName('MoneyPrice') .AsInteger;
myFrame2.Namee := cdsbuchen.FieldByName('Name').Asstring;
myFrame2.Gesamtpreis2:= cdsbuchen.FieldByName('MoneyPrice').AsInteger * myFrame2.Anzahl + (cdsbuchen.FieldByName('TransactionFee').AsCurrency/100);
(* if BGesamtpreisalt < BGesamtpreis then begin
BGesamtpreis := myFrame2.Gesamtpreis2 ;
BGesamtpreisalt := BGesamtpreis;
end;
if BGesamtpreisalt > BGesamtpreis then begin
Bgesamtpreis := BGesamtpreis + myFrame2.Gesamtpreis2 ;
BGesamtPreisalt := BGesamtpreis;
end; *)//vollkommener quatsch
Das auskommentierte ist vollkommen falsch, aber ich weiß nicht, wie man den Gesamtpreis von allen Frames addieren kann. Ich hoffe der Quelltext erklärt besser als ich
Danke schon einmal im Vorraus für eure Hilfe