If Anweisungen verkleinern

[jfheins]

In diesem Fall dann halt so:

Delphi-Quellcode:

ComboBoxFirmenG.Text := Customer_Info[1,28];

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


  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ß');

Sinnvoller wäre es dennoch, direkt die passenden Typen zu verwenden ...

[mjustin]

Zitat von youuu:

Denn es sollen ja die Items geadded werden die nicht im Feld "Customer_Info[1,28]" gespeichert sind.

Und somit habe ich wieder die nervigen If Anweisungen

Oh, sorry - das habe ich zuerst anders gesehen ... Mein Posting ist komplett unbrauchbar. Ich leg mich wieder hin

[youuu]

Zitat von mjustin:

Zitat von youuu:

Denn es sollen ja die Items geadded werden die nicht im Feld "Customer_Info[1,28]" gespeichert sind.

Und somit habe ich wieder die nervigen If Anweisungen

Oh, sorry - das habe ich zuerst anders gesehen ... Mein Posting ist komplett unbrauchbar. Ich leg mich wieder hin

Nein nicht ganz, mit "If not" wurde es wieder etwas brauchbar, aber werde mir das mal mit den Records genauer anschauen.

[Win32.API]

Delphi-Quellcode:

         ComboBoxFirmenG.Items.Add('Klein'); 
   ComboBoxFirmenG.Items.Add('Mittel');
         ComboBoxFirmenG.Items.Add('Groß');
        ComboBoxFirmenG.Items.Delete(ComboBoxFirmenG.Items.IndexOf(Customer_Info[1,28,1]));

[Hawkeye219]

Hallo,

eine weitere Möglichkeit wäre die Verwendung einer (lokalen) Hilfsroutine:

Delphi-Quellcode:

  procedure AddMissing (const aItem : string);
  begin
    if (not {SysUtils.}SameText(Customer_Info[1,28,1], aItem)) then
      ComboBoxFirmenG.Items.Add(s);
  end;

AddMissing ('Klein');
AddMissing ('Mittel');
AddMissing ('Groß');

Gruß Hawkeye