Durch Enum-Set iterieren?

[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.

[DieDolly]

Zitat:

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

Verstehe ich gerade nicht?

Ist das nur Zufall, dass der Code oben funktioniert?

[Uwe Raabe]

Wenn du den Namen eines Enum-Werts änderst, kann er nicht mehr aus einem vorher gespeicherten String wiederhergestellt werden.

[DieDolly]

Ach so ja ok das ist klar.
Dann wäre es ja besser, den String zu parsen und zu prüfen, ob jeder Teilstring als Enum existiert.
Aber dafür müsste ich wieder durch das Set iterieren was ja irgendwie und scheinbar mit <T> nicht möglich zu sein scheint.

Eine Schummel-Lösung?
Ein weiteres, volles Set anlegen welches alle Werte enthält. Das übergebe ich meiner eigenen Funktion StrToSet.
Mein eigenes StrToSet ruft dann SetToString auf, den String nehme ich dann auseinander, mache eine Liste und vergleiche die Werte mit dem übergenen String, die eigentliche Eingabe, welche ich auch auseinandernehme?

[freimatz]

Das Beste sind zwei Funktionen die den enum in einen für die Speicherung tauglichen Wert umsetzen und zurück. Ist zwar viel mehr Aufwand aber sicherer.