Durch Enum-Set iterieren?

[DieDolly]

Ich stehe gerade auf dem Schlauch. Wie iteriert man durch einen Enum?

Aufruf

Delphi-Quellcode:

// TStreetTypeSet = set of TStreetType;
// StreetTypeSet: TStreetTypeSet;
s := GetSetAsString<TStreetType>(StreetTypeSet, ','));

Funktion

Delphi-Quellcode:

function GetSetAsString<T>(const EnumSet: T; Separator: string): string;
var
 i: Integer;
begin
 Result := '';
 for i := Low(T) to High(T) do
  begin
   Result := Result + EnumSet(i) + Separator;
  end;
end;

[Uwe Raabe]

So wird das nicht gehen, da man ein Set nicht als Constraint für das <T> angeben kann.

Mal abgesehen davon, kann ich noch nicht den Sinn dieser Funktion verstehen. Vielleicht holst du mal etwas weiter aus und beschreibst die eigentliche Problemstellung.

[perpeto1234]

Delphi-Quellcode:

TMyEnum = (ONE, TWO, THREE);
TMyEnums = set of TMyEnum;

procedure DoIterate(AEnums: TMyEnums);
var
  my: TMyEnum;
begin
  for my in AEnums do
  begin
    // do smt. with "my"
  end;
end;

...

DoIterate([ONE, TWO]);

[Stevie]

Guckstu SetToString aus System.TypInfo.pas

[DieDolly]

Zitat:

Mal abgesehen davon, kann ich noch nicht den Sinn dieser Funktion verstehen. Vielleicht holst du mal etwas weiter aus und beschreibst die eigentliche Problemstellung.

Wenn ich ein Set fülle und es beispielsweise 5 Einträge hat, möchte ich daraus einen kommaseparierten String zusammenstellen. Diesen möchte ich in einer Textdatei dann abspeichern und später wieder laden.

Zitat:

procedure DoIterate(AEnums: TMyEnums);
var
**my: TMyEnum;
begin
**for my in AEnums do
**begin
****// do smt. with "my"
**end;
end;

Diese Funktion kann ich leider nicht verwenden, da ich hier explizit "TMyEnum" angeben muss. Ich brauche das aber so, dass ich Sets von verschiedenen Typen angeben kann.

Bin ich zu doof dafür?

Zitat von Stevie:

Guckstu SetToString aus System.TypInfo.pas

Delphi-Quellcode:

function GetSetAsString<T>(const EnumSet: T): string;
begin
 Result := SetToString(TypeInfo(T), EnumSet, True);
end;

[Uwe Raabe]

Wie schon gesagt: Vergiss den generischen Ansatz und schreib direkt den SetToString-Aufruf.

[DieDolly]

Geht das mit generischem Ansatz gar nicht?
Ich hätte das sehr gerne in einer eigenen Unit, wo eh schon zig Enum-Sachen (generisch) drin sind.

Ich weiß halt nicht was genau ich falsch mache aber dsas hier funktioniert auch nicht

Delphi-Quellcode:

// TStreetTypeSet = set of TStreetType;
// StreetTypeSet: TStreetTypeSet;

showmessage(
 SetToString(TypeInfo(TStreetTypeSet), StreetTypeSet, True)
);

// [dcc32 Fehler] Form.pas(317): E2250 Es gibt keine überladene Version von 'SetToString', die man mit diesen Argumenten aufrufen kann

Delphi 10.3.3.

[Uwe Raabe]

SetToString(PTypeInfo(TypeInfo(TStreetTypeSet)), @StreetTypeSet, True)

[DieDolly]

Vielen Dank. Meine zwei Funktionen sehen nun so aus. Ein erster Test von Set zu String und zurück von String zu Set hat funktioniert.

Delphi-Quellcode:

function SetToStr<T>(Value: T; Brackets: Boolean): string;
begin
 Result := SetToString(PTypeInfo(TypeInfo(T)), @Value, True);
end;

function StrToSet<T>(Value: string): T;
begin
 StringToSet(PTypeInfo(TypeInfo(T)), Value, @Result);
end;

// X: TMySet;
// S: string;

// X := [a, b c];
// S := SetToStr<TMySet>(X, True);
// ShowMessage(S);
//
// X :=  StrToSet<TMySet>('[a, b]');
// S := SetToStr<TMySet>(X, True);
// showmessage(S);

Ich speichere Sets aktuell als Integer-Wert. Das ist mir aber zu unsicher, sollte ich mal an der Benutzeroberfläche etwas ändern, sind die Integer-Werte nutzlos.

[himitsu]

Wie schon erwähnt, gibt es Methoden, um ENUMs und SETs in einen String zu konvertieren.

Aber das knallt natürlich auch andersrum, also wenn du Werte umbenennst oder löschst.