Lösungsweg für Mischkarton´s gesucht !

[Bjoerk]

Habs jetzt doch schnell mal gemacht. Ich hab zum Beispiel sowas verwendet. Das muß aber nicht so sein. Das kann man auch mit Arrays machen, falls du dich damit besser auskennst?

Delphi-Quellcode:

type
  TBottleStyle = (bs75, bs100);

const
  cBoxBottlesCount: array[TBottleStyle] of integer = (6, 6); // Wieviel Flaschen passen in den Kasten;

type
  TBottleProduct = (bpA, bpB, bpC, bpD, bpE, bpF, bpG, bpH, bpI, bpJ, bpK);

  TBottle = class // Eine Flasche;
  private
    FProduct: TBottleProduct;
    FStyle: TBottleStyle;
  public
    property Product: TBottleProduct read FProduct write FProduct;
    property Style: TBottleStyle read FStyle write FStyle;
  end;

  TBottles = class // Liste von Flaschen;
  private
    FItems: TObjectList;
    function GetBottle(Index: integer): TBottle;
    function GetCount: integer;
  public
    function Add(Product: TBottleProduct; Style: TBottleStyle): integer;
    procedure Delete(Index: integer);
    procedure Clear;
    procedure AddAsStringsTo(Dest: TStrings);
    function CountAsString: string;
    procedure Assign(Value: TBottles);
    procedure Sort;
    function CanExtractBox(var BottleProduct: TBottleProduct;
      var BottleStyle: TBottleStyle): boolean;
    property Bottle[Index: integer]: TBottle read GetBottle; default;
    property Count: integer read GetCount;
    constructor Create;
    destructor Destroy; override;
  end;

  TBottleBox = class // Ein Kasten bestimmter Flaschengröße;
  private
    FItems: TObjectList;
    FStyle: TBottleStyle;
    function GetBottle(Index: integer): TBottle;
    function GetCount: integer;
  public
    function Add(Product: TBottleProduct): integer;
    procedure Clear;
    function CountAsString: string;
    procedure AddAsStringsTo(Dest: TStrings);
    property Bottle[Index: integer]: TBottle read GetBottle;
    property Style: TBottleStyle read FStyle;
    property Count: integer read GetCount;
    constructor Create(Style: TBottleStyle);
    destructor Destroy; override;
  end;

  TBottleBoxes = class // Kästen;
  private
    FItems: TObjectList;
    function GetBox(Index: integer): TBottleBox;
    function GetCount: integer;
  public
    function Add(Style: TBottleStyle): integer;
    function IndexOfMinCount(Style: TBottleStyle): integer;
    procedure Clear;
    function CountAsString: string;
    procedure AddAsStringsTo(Dest: TStrings);
    procedure Fill(List: TBottles); // Flaschen in Kästen einsortieren;
    property Box[Index: integer]: TBottleBox read GetBox;
    property Count: integer read GetCount;
    constructor Create;
    destructor Destroy; override;
  end;