In der Datatypes-
Unit habe ich beim Hinzufügen einer Bestellung eine Zeile hinzugefügt, pflegst Du die mit ein?
Code:
procedure TccDsFinVkProcessDataBestellung.AddBestellung(const aMenge: Double; const aBezeichnung: String; const aPreis: Double);
var
lBestellung: TBestellung;
begin
lBestellung.Menge := aMenge;
lBestellung.Bezeichnung := aBezeichnung;
lBestellung.Preis := aPreis;
Bestellungen:=Bestellungen+[lBestellung]; //Michael Groß: 24.07.2020 sonst wird die Bestellung dem Array nicht hinzugefügt.
end;