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 20. Nov 2024
Antwort Antwort
Seite 1 von 3  1 23      
lxo

Registriert seit: 30. Nov 2017
288 Beiträge
 
Delphi 12 Athens
 
#1

Case-Anweisung - Zwingen alle Elemente des Typen auszuprogrammieren

  Alt 19. Nov 2024, 12:56
Hallo,

ich möchte bei einer Case-Anweisung einen Compiler-Fehler bekommen wenn ein neues Element der Enumeration hinzugefügt wird.
Damit der Schritt zwingend ausprogrammiert wird.
Delphi gibt da nicht mal eine Warnung oder Hinweis aus.
Ich hab es auch schon versucht mit einer Hilfsvariable um die Warnung W1036 zu bekommen und die Warnung in dem Block dann als Fehler kennzeichnen.
Funktioniert aber leider nicht wie erwartet.

Hat jemand eine Idee wie man das lösen könnte?

Delphi-Quellcode:
type
  TEnum = ( t1, t2, t3);
var
  lEnum: TEnum;
  lEnumCheck: Boolean;
begin
  {$WARN USE_BEFORE_DEF ERROR}

  lEnum := t1;
  case lEnum of
    t1: lEnumCheck := True;
    t2: lEnumCheck := True;
// t3: lCheck := True;
  end;

  if lEnumCheck then //Warnung ist hier wenn t3 auskommentiert ist bekomme aber keinen Fehler, wenn t3 wieder drin ist ist die Warnung ganz am Ende der Prozedur. Packe ich das {$WARN USE_BEFORE_DEF DEFAULT} nach dem end dann kriege ich in jedem Fall ein Fehler.
  begin

 
  end;

  {$WARN USE_BEFORE_DEF DEFAULT}
end;
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
 
Delphi 12 Athens
 
#2

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

  Alt 19. Nov 2024, 13:07
Wie wäre es mit einem ganz anderen Ansatz?
Delphi-Quellcode:
type
  TEnum = (t1, t2, t3);

const
  EnumCheck: array[TEnum] of Boolean = (true, true, false);
Wenn jetzt TEnum um weitere Elemente erweitert wird, muss zwangsläufig auch die Konstante erweitert werden. Eine andere Möglichkeit wäre so etwas:
Delphi-Quellcode:
function EnumCheck(Value: TEnum): Boolean;
begin
  case Value of
    t1: Result := true;
    t2: Result := true;
    else
      raise EForgottenValue.Create('Hamwa nich was vergessen?');
  end;
end;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Rollo62
Online

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

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

  Alt 19. Nov 2024, 13:12
Delphi-Quellcode:
type
  TEnum = ( t1, t2, t3);

const
  CEnum : array[ TEnum ] of String = ( 't1', 't2', 't3' ); //Knallt schon hier, wenn es nicht übereinstimmt

var
  lEnum: TEnum;
  lEnumCheck: Boolean;
begin
   CEnum[ t1 ];
end;
Schnell hingekrakelt, Tippfehler inklusive ...

@DeddyH: Ey, mach mal langsamer, damit ich auch noch eine Chance habe
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
 
Delphi 12 Athens
 
#4

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

  Alt 19. Nov 2024, 13:13
Das entspricht doch meinem ersten Vorschlag, oder nicht?

[edit]@Rollo62: ich gelobe Besserung [/edit]
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen

Geändert von DeddyH (19. Nov 2024 um 13:15 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

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

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

  Alt 19. Nov 2024, 13:17
vielleicht so?
Delphi-Quellcode:
  case Value of
    t1: Result := true;
    t2: Result := true;
    {$IF High(TEnum) <> t2} {$MESSAGE Error 'peng'} {$IFEND}
  end;
$2B or not $2B
  Mit Zitat antworten Zitat
lxo

Registriert seit: 30. Nov 2017
288 Beiträge
 
Delphi 12 Athens
 
#6

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

  Alt 19. Nov 2024, 13:18
Wie wäre es mit einem ganz anderen Ansatz?
Delphi-Quellcode:
type
  TEnum = (t1, t2, t3);

const
  EnumCheck: array[TEnum] of Boolean = (true, true, false);
Wenn jetzt TEnum um weitere Elemente erweitert wird, muss zwangsläufig auch die Konstante erweitert werden. Eine andere Möglichkeit wäre so etwas:
Delphi-Quellcode:
function EnumCheck(Value: TEnum): Boolean;
begin
  case Value of
    t1: Result := true;
    t2: Result := true;
    else
      raise EForgottenValue.Create('Hamwa nich was vergessen?');
  end;
end;
Das mit der Konstante mache ich auch schon.
Ich möchte aber gerne direkt beim case hängen bleiben.
Nur weil ich dann die Konstante erweitert habe, habe ich mein case ja nicht angepasst.
Wenn ich mehrere case-anweisungen habe die ich beachten muss, müsste ich ja so eine Zuweisung über jede case-Anweisung von dieser Enumeration machen.

Den zweiten Fall mache ich auch schon.
Das bekomme ich aber erst zur Laufzeit mit.
Hätte es halt gerne direkt beim kompilieren.
Unit-Test wäre das einzige was mir noch einfällt.
Hätte es aber wie gesagt gerne schon direkt beim kompilieren als Fehler, damit man direkt dahin geführt wird und das ausprogrammieren kann.
  Mit Zitat antworten Zitat
lxo

Registriert seit: 30. Nov 2017
288 Beiträge
 
Delphi 12 Athens
 
#7

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

  Alt 19. Nov 2024, 13:31
vielleicht so?
Delphi-Quellcode:
  case Value of
    t1: Result := true;
    t2: Result := true;
    {$IF High(TEnum) <> t2} {$MESSAGE Error 'peng'} {$IFEND}
  end;
Geht schon mehr in die Richtung wie ich das haben will, aber auch noch nicht so die optimale Lösung die ich mir vorstelle.
Funktioniert z.B. nicht wenn jemand mittendrin ein Element einträgt (auch wenn man sowas lieber nicht machen sollte).
Und wenn man die Bedingung unten anpasst ohne den neuen Case-Fall hinzuzufügen würde man das ja auch schon umgehen.

Kann man denn evtl. mit den Compiler-Direktiven eine variable Hochzählen? Hab dazu nichts gefunden.
Damit könnte ich ja für jeden Case-Fall die Variable hochzählen und dann gegen "Ord(High(TEnum))" checken.
  Mit Zitat antworten Zitat
Benutzerbild von dummzeuch
dummzeuch
Online

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

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

  Alt 19. Nov 2024, 13:44
    {$IF High(TEnum) <> t2} {$MESSAGE Error 'peng'} {$IFEND}
Geht schon mehr in die Richtung wie ich das haben will, aber auch noch nicht so die optimale Lösung die ich mir vorstelle.
Funktioniert z.B. nicht wenn jemand mittendrin ein Element einträgt (auch wenn man sowas lieber nicht machen sollte).
Und wenn man die Bedingung unten anpasst ohne den neuen Case-Fall hinzuzufügen würde man das ja auch schon umgehen.

Kann man denn evtl. mit den Compiler-Direktiven eine variable Hochzählen? Hab dazu nichts gefunden.
Damit könnte ich ja für jeden Case-Fall die Variable hochzählen und dann gegen "Ord(High(TEnum))" checken.
Vielleicht ganz banal:

{$IF Ord(High(TENum) <> 1}{$MESSAGE Error 'peng'} {$IFEND}
Thomas Mueller
  Mit Zitat antworten Zitat
lxo

Registriert seit: 30. Nov 2017
288 Beiträge
 
Delphi 12 Athens
 
#9

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

  Alt 19. Nov 2024, 13:46
    {$IF High(TEnum) <> t2} {$MESSAGE Error 'peng'} {$IFEND}
Geht schon mehr in die Richtung wie ich das haben will, aber auch noch nicht so die optimale Lösung die ich mir vorstelle.
Funktioniert z.B. nicht wenn jemand mittendrin ein Element einträgt (auch wenn man sowas lieber nicht machen sollte).
Und wenn man die Bedingung unten anpasst ohne den neuen Case-Fall hinzuzufügen würde man das ja auch schon umgehen.

Kann man denn evtl. mit den Compiler-Direktiven eine variable Hochzählen? Hab dazu nichts gefunden.
Damit könnte ich ja für jeden Case-Fall die Variable hochzählen und dann gegen "Ord(High(TEnum))" checken.
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?
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

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

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

  Alt 19. Nov 2024, 13:47
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.
$2B or not $2B
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 3  1 23      


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 14:07 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