AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

If Anweisungen verkleinern

Ein Thema von youuu · begonnen am 10. Mai 2009 · letzter Beitrag vom 10. Mai 2009
Antwort Antwort
Seite 2 von 2     12
Benutzerbild von jfheins
jfheins

Registriert seit: 10. Jun 2004
Ort: Garching (TUM)
4.579 Beiträge
 
#11

Re: If Anweisungen verkleinern

  Alt 10. Mai 2009, 12:25
In diesem Fall dann halt so:

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

  if Customer_Info[1,28] = 'Kleinthen
    Include(Sizes, ciKlein)
  else if Customer_Info[1,28] = 'Mittelthen
    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 ...
  Mit Zitat antworten Zitat
mjustin

Registriert seit: 14. Apr 2008
3.003 Beiträge
 
Delphi 2009 Professional
 
#12

Re: If Anweisungen verkleinern

  Alt 10. Mai 2009, 12:29
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
Michael Justin
habarisoft.com
  Mit Zitat antworten Zitat
10. Mai 2009, 12:30
Dieses Thema wurde von "Matze" von "Programmieren allgemein" nach "Sonstige Fragen zu Delphi" verschoben.
Delphi-Frage
youuu

Registriert seit: 2. Sep 2008
Ort: Kleve
822 Beiträge
 
Delphi 2010 Professional
 
#14

Re: If Anweisungen verkleinern

  Alt 10. Mai 2009, 12:48
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.
Steven
  Mit Zitat antworten Zitat
Win32.API

Registriert seit: 23. Mai 2005
312 Beiträge
 
#15

Re: If Anweisungen verkleinern

  Alt 10. Mai 2009, 12:49
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]));
  Mit Zitat antworten Zitat
Hawkeye219

Registriert seit: 18. Feb 2006
Ort: Stolberg
2.227 Beiträge
 
Delphi 2010 Professional
 
#16

Re: If Anweisungen verkleinern

  Alt 10. Mai 2009, 12:54
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
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:42 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz