Prüfen ob ein Integerwert in einem ENUM existiert

[himitsu]

Jupp, IN bringt bei einem ENUM nichts, da diese Variable wie ein Integer (alle ordinalen Typen) eh nur einen Wert haben kann. (dafür ist das = da)

Bei einem SET (je Wert ein Bit im Typen) oder Listen, da kann man schön auch mit IN arbeiten. (mit = dort ALLE Bits gleichzeitig vergleichen)



In deinem Fall brauchst eher eine Konstante, wo du mit IN nachsehn kannst.
Sobald auch nur ein Wert im SET mit einem Wert vordefiniert ist (=), werden die enthaltenen ENUMS nicht mehr in der RTTI gespeichert.
Und man kann nicht nachsehen, ob es einen Wert darin gibt. (nur das High kann man noch benutzten)

z.B.

Delphi-Quellcode:

type
  //TMyField = (of0, of1, of2, of3, ofBelegnummer, of5, ofBelegdatum, ofKonto, ofKontoName, ofBank, ofZahldatum);  // hier könnte man auch via RTTI/TypInfo im Typ nachsehn, anstatt in einer Konstante/Variable
  TMyField = (ofBelegnummer=4, ofBelegdatum=6, ofKonto, ofKontoName, ofBank, ofZahldatum);
  TMyFields = set of TMyField;
const
  MyOrderFields: TMyFields = [ofBelegnummer, ofBelegdatum, ofKonto, ofKontoName, ofBank, ofZahldatum];

if TOrderField(ACol) in MyOrderFields then

oder

Delphi-Quellcode:

const
  ofBelegnummer = 4;
  ofBelegdatum = 6;
  ofKonto = 7;
  ofKontoName = 8;
  ofBank = 9;
  ofZahldatum = 10;

type
  TMyFields = set of Byte;  // oder auch nur = set of 0..10;
const
  MyOrderFields: TMyFields = [ofBelegnummer, ofBelegdatum, ofKonto, ofKontoName, ofBank, ofZahldatum];

if ACol in MyOrderFields then

oder
...



Man kann sich auch einen Helper schreiben, welcher ... naja.
Ich hatte mir mal vor Jahren das TObject.IsClass etwas erweitert.

Delphi-Quellcode:

type
  TObjectHelper = class helper for TObject
  public
    function       ClassIs(const ClassName:           string): Boolean; overload;  // entspricht dem IS ... prüft, ob die Klasse von der "namentlich" angegebenen Klasse abgeleitet wurde (TObject.IsClassName prüft nur, ob es genau die Klasse ist und beachtet auch kein NIL)
    function       ClassIs(const ClassNames: array of string): Boolean; overload;
    function       ClassIs(const ClassType:           TClass): Boolean; overload;
    function       ClassIs(const ClassTypes: array of TClass): Boolean; overload;

    function       NameIs(const Objects: array of TObject): Boolean; overload;  // Self in Objects
    function       NameIs(const Names:   array of string):  Boolean; overload;  // TComponent(Self).Name in Names

    // und noch bissl mehr Nützliches
  end;

// ObjektZeiger vergleichen
if Column.NameIs(ColBelegnummer, ColBelegdatum, ColKonto, ColKontoName, ColBank, ColZahldatum) then

// Column.Name prüfen (case-insentitive)
if Column.NameIs('ColBelegnummer', 'ColBelegdatum', 'ColKonto', 'ColKontoName', 'ColBank', 'ColZahldatum') then

Aber denkbar wäre es inzwischen auch gut als Class Operator für IN
if Column in [ColBelegnummer, ColBelegdatum, ColKonto, ColKontoName, ColBank, ColZahldatum] then

[Uwe Raabe]

Ich hätte noch einen anderen Ansatz mit einem Helper, der nebenbei noch die Konstanten in der TOrderField-Definition eliminiert:

Delphi-Quellcode:

type
  TOrderField = (ofNone, ofBelegnummer, ofBelegdatum, ofKonto, ofKontoName, ofBank, ofZahldatum);

type
  TOrderFieldHelper = record helper for TOrderField
  private const
    cColumnMap: array [TOrderField] of Integer = (-1, 4, 6, 7, 8, 9, 10);
  public
    function GetColumn: Integer;
    procedure SetColumn(const Value: Integer);
    property Column: Integer read GetColumn write SetColumn;
  end;

var
  OrderField: TOrderField = ofBelegnummer;

...

function TOrderFieldHelper.GetColumn: Integer;
begin
  Result := cColumnMap[Self];
end;

procedure TOrderFieldHelper.SetColumn(const Value: Integer);
var
  idx: TOrderField;
begin
  for idx := Low(cColumnMap) to High(cColumnMap) do begin
    if cColumnMap[idx] = Value then begin
      Self := idx;
      Exit;
    end;
  end;
  Self := ofNone;
end;

Verwendung dann so:

Delphi-Quellcode:

procedure TfrmMain.sgOPOSFixedCellClick(Sender: TObject; ACol, ARow: Integer);
begin
  if OrderField.Column = ACol then
    OrderASC := not OrderASC
  else
    OrderField.Column := ACol;
  btnRefresh.Click;
end;

[DR_Oetker]

Vielen Dank an alle für die vielen Antworten.

Ich schaue mir die Sache mit dem Helper mal genauer an, denn das sagt mir bislang nichts...

Falls ich nicht weiter komme, werde ich mich nochmal melden!
Besten Dank

Frank

[DR_Oetker]

Ich schon wieder...

Ich hab mir das Beispiel von Uwe Raabe angeschaut.

Danke für den Hinweis mit dem Helper.
Solch ein Hilfskonstrukt mit dem helper hatte ich bislang nicht gekannt.

Allerdings bringt mich das mit meinem Problem nicht konkret weiter, denn ich will ja prüfen, ob die angeklickte Spalte im Enum vorhanden ist...

Der ähnliche Ansatz mit einem helper von Rollo62 hingegen passt besser!
Allerdings hatte ich die selbe Abfrage mit einem
case of bereits im Click-Ereignis.

Es funktioniert so, allerdings stört mich ein wenig, dass beim Ändern des Enums auch immer der restliche Code mitgeändert werden muss..

Eventuell setzte ich die Sache mit dem Set um, (wie das himitsu vorgeschlagen hat) denn da ist die Deklaration des Enums und des Sets zumindest an gleicher Stelle und es fällt auf, dass dort auch geändert werden muss.


Also besten Dank für euere Antworten, hat mich auf jeden Fall weitergebracht...

[himitsu]

Class Helper und Record Helper sind einfach nur eine "nachträgliche" Erweiterung.

So kann man auch an Typen/Klassen direkt hilfreiche Methoden anhängen,
anstatt sie als einzelfunktion irgendwo zu haben.
z.B.

Delphi-Quellcode:

var 
  R1, R2: TRect;
  i: Integer;

S := IntToStr(i);  // Funktion
S := i.ToString;  // als Helper

if EqualRect(R1, R2) then  // Funktion
if R1.Equal(R2) then  // als RecordMethode

TIntegerHelper.ToString
TRect.Equal


Bzw. die Class Operator (in einem Class/Record Helper) können, die Operatoren für einen Typen erweitern ( := = <= >= < > <> + - * / div mod in shl shr ).

[Uwe Raabe]

Zitat von DR_Oetker:

Allerdings bringt mich das mit meinem Problem nicht konkret weiter, denn ich will ja prüfen, ob die angeklickte Spalte im Enum vorhanden ist...

Wieso nicht? Wenn nach der Zuweisung OrderField.Column := ACol; das OrderField = ofNone ist, dann ist das keine gültige Spalte. (Außer -1 wäre eine gültige Spalte)