If Anweisungen verkleinern

[mjustin]

Schritt 0: Deklaration der Aufzählungstypen und eines Sets:

Delphi-Quellcode:

type
  TSize = (ciKlein, ciMittel, ciGroß); 
  TSizes = set of TSize;
var
  Sizes: TSizes;

Schritt 1: Mapping von String auf den Aufzählungstyp, in Set aufnehmen

Delphi-Quellcode:

if Customer_Info[1,28,1] = 'Klein' then
  Include(Sizes, ciKlein)
else if Customer_Info[1,28,1] = 'Mittel' then
  Include(Sizes, ciMittel)
else if Customer_Info[1,28,1] = 'Groß' then
  Include(Sizes, ciGroß);

Schritt 2: ein, zwei oder drei Items der Stringlist hinzufügen

Delphi-Quellcode:

if not (ciKlein in Sizes) then
  ComboBoxFirmenG.Items.Add('Klein');

if not (ciMittel in Sizes) then
  ComboBoxFirmenG.Items.Add('Mittel');

if not (ciGroß in Sizes) then
  ComboBoxFirmenG.Items.Add('Groß');