AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Algorithmen, Datenstrukturen und Klassendesign Case-Anweisung - Zwingen alle Elemente des Typen auszuprogrammieren
Thema durchsuchen
Ansicht
Themen-Optionen

Case-Anweisung - Zwingen alle Elemente des Typen auszuprogrammieren

Ein Thema von lxo · begonnen am 19. Nov 2024 · letzter Beitrag vom 19. Nov 2024
Antwort Antwort
Seite 2 von 2     12   
lxo

Registriert seit: 30. Nov 2017
286 Beiträge
 
Delphi 12 Athens
 
#11

AW: Case-Anweisung - Zwingen alle Elemente des Typen auszuprogrammieren

  Alt Gestern, 13:52
Meine Idee mit dem Ord(High(TEnum)) war so gedacht:

Delphi-Quellcode:
type
  TEnum = ( t1, t2, t3);
var
  lEnum: TEnum;
begin
  {$DEFINE ENUMCOUNT 0}
  case lEnum of
    t1:
     begin
      {$DEFINE ENUMCOUNT ENUMCOUNT+1}
      ...
     end;
    t2:
     begin
      {$DEFINE ENUMCOUNT ENUMCOUNT+1}
      ...
     end;
    // Hier immer letztes Element aus der Case-Anweisung eintragen.
    {$IF Ord(High(TEnum)) <> ENUMCOUNT} {$MESSAGE Error 'Case-Fall fuer jedes Element ausprogrammieren!'} {$IFEND}
  else
    raise Exception.Create('Fehlermeldung');
  end;
end;
  Mit Zitat antworten Zitat
Benutzerbild von sh17
sh17

Registriert seit: 26. Okt 2005
Ort: Radebeul
1.642 Beiträge
 
Delphi 11 Alexandria
 
#12

AW: Case-Anweisung - Zwingen alle Elemente des Typen auszuprogrammieren

  Alt Gestern, 14:05
Das ist so aber auch schwer mitzubekommen,
bzw. es wird nicht lesbarer.
{$IF Ord(High(TEnum)) <> 1} {$MESSAGE Error 'peng'} {$IFEND}

array[TEnum] of ... = (...);
Hier bekommst du die Änderung der Anzahl mit.

Wenn jemand aber gleichzeitig etwas hinzufügt und löscht,
ohne dass es zwischendrin angepasst wurde,
dann flutscht das natürlich durch.
Dann würde es aber auch knallen, weil ein alter Wert fehlt - wenn man sich bisher an seine Regel der vollständigen Auswertung gehalten hat.
Sven Harazim
--
  Mit Zitat antworten Zitat
Benutzerbild von dummzeuch
dummzeuch

Registriert seit: 11. Aug 2012
Ort: Essen
1.599 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#13

AW: Case-Anweisung - Zwingen alle Elemente des Typen auszuprogrammieren

  Alt Gestern, 17:42
    {$IF High(TEnum) <> t2} {$MESSAGE Error 'peng'} {$IFEND}
Vielleicht ganz banal:

{$IF Ord(High(TENum) <> 1}{$MESSAGE Error 'peng'} {$IFEND}
Ist doch erstmal das gleiche wie von himitsu oder wo soll da der Unterschied sein?
Es erkennt auch, wenn jemand einen enum-Wert einfügt, nicht nur wenn jemand einen Wert anhängt. Bei beidem ändert sich Ord(High(TENum)), aber nur bei letzterem ändert sich High(TENum).
Thomas Mueller
  Mit Zitat antworten Zitat
Der schöne Günther

Registriert seit: 6. Mär 2013
6.157 Beiträge
 
Delphi 10 Seattle Enterprise
 
#14

AW: Case-Anweisung - Zwingen alle Elemente des Typen auszuprogrammieren

  Alt Gestern, 18:10
Siehe auch:
Delphi merkt nicht wenn ein case-Statement vollständig ist, oder?

und

Bei Sprachen wie Swift oder Rust bricht der Compiler mit einem Fehler ab, wenn ein match-Statement nicht vollständig ist. Delphi bekommt von all dem aber nichts mit(...)
  Mit Zitat antworten Zitat
Rollo62

Registriert seit: 15. Mär 2007
4.087 Beiträge
 
Delphi 12 Athens
 
#15

AW: Case-Anweisung - Zwingen alle Elemente des Typen auszuprogrammieren

  Alt Gestern, 18:19
Hätte es halt gerne direkt beim kompilieren.
Hallo,
ich möchte bei einer Case-Anweisung einen Compiler-Fehler bekommen ....
Genau, beim Compilieren kommt der Fehler mit so einer Lösung
CEnum : array[ TEnum ] of String = ( 't1', 't2', 't3' ); //Knallt schon hier, wenn es nicht übereinstimmt Dass man das jetzt erweitern muss, ist ja genau Sinn des Crashes.
Nebenbei hätte so eine noch weitere Vorteile, also zum Beispiel Textausgabe, Rückgabe beliebiger Werte, etc.

Eventuell sucht Du ja sowas, etwas "Verboseres":

Delphi-Quellcode:
type
  TMyEnum = (Value0, Value1, Value2);

const
  ExpectedEnumSize = 3; // Erwartete Anzahl der Elemente in TMyEnum

{$IF     Ord(High(TMyEnum)) > (ExpectedEnumSize-1) }
  {$MESSAGE ERROR 'TMyEnum wurde erweitert!'       }
{$ELSEIF Ord(High(TMyEnum)) < (ExpectedEnumSize-1) }
  {$MESSAGE ERROR 'TMyEnum wurde verkleinert!'     }
{$IFEND}
  Mit Zitat antworten Zitat
Benutzerbild von dummzeuch
dummzeuch

Registriert seit: 11. Aug 2012
Ort: Essen
1.599 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#16

AW: Case-Anweisung - Zwingen alle Elemente des Typen auszuprogrammieren

  Alt Gestern, 18:29
Genau, beim Compilieren kommt der Fehler mit so einer Lösung
CEnum : array[ TEnum ] of String = ( 't1', 't2', 't3' ); //Knallt schon hier, wenn es nicht übereinstimmt
Das Problem ist, dass man dann aber die betroffenen case-Statements alle manuell raussuchen muss, was nicht ganz so einfach ist, da dort ja nicht der Typ sondern eine Variable des Typs verwendet wird, man kann also nicht einfach ein grep auf den Namen des Typs machen. Wenn der Compiler bei jedem davon einen Fehler schmeißt, ist das einfacher. Kann ja auch gerne abschaltbar sein (wobei man das ja auch mit einem else erreichen könnte).
Thomas Mueller
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.056 Beiträge
 
Delphi 12 Athens
 
#17

AW: Case-Anweisung - Zwingen alle Elemente des Typen auszuprogrammieren

  Alt Gestern, 19:29
Er muß ja keinen Fehler werfen, aber z.B. eine Warnung oder Info wäre eigentlich problemlos möglich, wenn bei einem Enum nicht alle Werte benutzt wurden.

Ja, natürlich auch abschaltbar, bzw. vielleicht über ein Attribut oder Keyword, explizit anforderbar,
denn es kommt vor, dass ich in manchen Case absichtlich garnicht alles verwende,
z.B. wenn an einer Stelle nur ein Teil benötigt wird und der Rest einfach nichts machen soll.
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.447 Beiträge
 
Delphi 12 Athens
 
#18

AW: Case-Anweisung - Zwingen alle Elemente des Typen auszuprogrammieren

  Alt Gestern, 21:43
da dort ja nicht der Typ sondern eine Variable des Typs verwendet wird, man kann also nicht einfach ein grep auf den Namen des Typs machen.
Wenn man SCOPEDENUMS verwendet, schon...
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 2     12   


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 02:22 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