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:

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 :cat:

[DP-Maintenance]

Dieses Thema wurde von "Matze" von "Programmieren allgemein" nach "Sonstige Fragen zu Delphi" verschoben.
Delphi-Frage

[youuu]

Zitat:

Zitat von mjustin

Zitat:

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 :cat:

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