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?
Delphi-Quellcode:
function GetSetAsString<T>(const EnumSet: T): string;
begin
Result := SetToString(TypeInfo(T), EnumSet, True);
end;