AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Durch Enum-Set iterieren?

Ein Thema von DieDolly · begonnen am 23. Jan 2023 · letzter Beitrag vom 24. Jan 2023
Antwort Antwort
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.608 Beiträge
 
Delphi 12 Athens
 
#1

AW: Durch Enum-Set iterieren?

  Alt 23. Jan 2023, 13:49
SetToString(PTypeInfo(TypeInfo(TStreetTypeSet)), @StreetTypeSet, True)
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
DieDolly

Registriert seit: 22. Jun 2018
2.175 Beiträge
 
#2

AW: Durch Enum-Set iterieren?

  Alt 23. Jan 2023, 14:04
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.

Geändert von DieDolly (23. Jan 2023 um 14:12 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu
Online

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

AW: Durch Enum-Set iterieren?

  Alt 23. Jan 2023, 16:30
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.
Ein Therapeut entspricht 1024 Gigapeut.
  Mit Zitat antworten Zitat
DieDolly

Registriert seit: 22. Jun 2018
2.175 Beiträge
 
#4

AW: Durch Enum-Set iterieren?

  Alt 23. Jan 2023, 18:04
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?
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.608 Beiträge
 
Delphi 12 Athens
 
#5

AW: Durch Enum-Set iterieren?

  Alt 23. Jan 2023, 18:12
Wenn du den Namen eines Enum-Werts änderst, kann er nicht mehr aus einem vorher gespeicherten String wiederhergestellt werden.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
DieDolly

Registriert seit: 22. Jun 2018
2.175 Beiträge
 
#6

AW: Durch Enum-Set iterieren?

  Alt 23. Jan 2023, 18:29
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?

Geändert von DieDolly (23. Jan 2023 um 18:57 Uhr)
  Mit Zitat antworten Zitat
freimatz

Registriert seit: 20. Mai 2010
1.490 Beiträge
 
Delphi 11 Alexandria
 
#7

AW: Durch Enum-Set iterieren?

  Alt 24. Jan 2023, 14:49
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.
  Mit Zitat antworten Zitat
Antwort Antwort


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 20:41 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz