Thema: Delphi Einfache Mengentypen

Einzelnen Beitrag anzeigen

Benutzerbild von mirage228
mirage228

Registriert seit: 23. Mär 2003
Ort: Münster
3.750 Beiträge
 
Delphi 2010 Professional
 
#4

AW: Einfache Mengentypen

  Alt 30. Sep 2011, 10:10
Also ich wüsste spontan zumindest einen Workaround damit es auch mit Mengentypen geht.
Nimm set of byte und dann speicher:
  GueltigeNummer := [4,7, 8,9,10,11,13,15,201,202];
und bei der Abfrage dann
  if (DiagnoseNummer - 1000) in GueltigeNummer then

Setzt natürlich voraus, dass alle deine gültigen Nummern zw. 1000 und 1255 sind.

Viele Grüße
David F.

May the source be with you, stranger.
PHP Inspection Unit (Delphi-Unit zum Analysieren von PHP Code)
  Mit Zitat antworten Zitat