Zitat von
Flocke:
Du könntest es intern nach "set of byte" casten, mein erster Ansatz wäre so:
Delphi-Quellcode:
type
TByteSet = set of byte;
procedure DoSomethingWithAnySet(const ASet);
begin
if 3 in TByteSet(ASet) then
begin
...
end;
end;
Dabei werden die Elemente von 0 ausgehend nummeriert. Also kannst du in deinem Beispiel das "a" in TMyClass1 und das "e" in TMyClass2 nicht auseinander halten.
klingt gut, werd ich testen sobald ich daheim bin
