If ...and... and... and... then

[DeddyH]

Lesbarer fände ich persönlich so etwas:

Delphi-Quellcode:

type
  TMyDataItems = (Discount, StockOn, Provision, Serials);

  TMyData = set of TMyDataItems;

  TfrmTest = class(TForm)
    cbDiscount: TCheckBox;
    cbStockOn: TCheckBox;
    cbProvision: TCheckBox;
    cbSerials: TCheckBox;
    ...
  private
    { Private-Deklarationen }
    function GetData: TMyData;
  public
    { Public-Deklarationen }
  end;

...

function TfrmTest.GetData: TMyData;
begin
  Result := [];
  if cbDiscount.Checked then
    Include(Result, TMyDataItems.Discount);
  if cbStockOn.Checked then
    Include(Result, TMyDataItems.StockOn);
  if cbProvision.Checked then
    Include(Result, TMyDataItems.Provision);
  if cbSerials.Checked then
    Include(Result, TMyDataItems.Serials);
end;