![]() |
Re: If Anweisungen verkleinern
In diesem Fall dann halt so:
Delphi-Quellcode:
Sinnvoller wäre es dennoch, direkt die passenden Typen zu verwenden ...
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ß'); |
Re: If Anweisungen verkleinern
Zitat:
|
DP-Maintenance
Dieses Thema wurde von "Matze" von "Programmieren allgemein" nach "Sonstige Fragen zu Delphi" verschoben.
Delphi-Frage |
Re: If Anweisungen verkleinern
Zitat:
|
Re: If Anweisungen verkleinern
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])); |
Re: If Anweisungen verkleinern
Hallo,
eine weitere Möglichkeit wäre die Verwendung einer (lokalen) Hilfsroutine:
Delphi-Quellcode:
Gruß Hawkeye
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ß'); |
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:07 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz