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;