[Unit] Generische Sets

[Neutral General]

Hallo,

Nachdem ich den Blogeintrag Delphi Record Helpers For Sets gelesen habe wollte ich mich mal an etwas versuchen und ich denke es ist etwas brauchbares dabei herausgekommen.

Was das Set kann:

• Alle Operatoren die auch bei nativen Sets unterstützt werden (+, -, *, in, =, <>, <=, >=)
• Entsprechende Methoden zu diesen Operatoren (Include(), Exclude(), Intersect(), Contains(), Equals(), IsSubsetOf(), IsSuperSetOf())
• Zusätzlich werden statt + und * auch or und and unterstützt
• Symmetrische Differenz (SymDifference() oder xor)
• Enumerator enthalten (funktioniert mit for-in)

Was das Set nicht kann:

Weil ich etwas schummeln musste sind konstante Set-Ausdrücke letztendlich konstante Arrays wodurch keine ".." unterstützt werden.
Allerdings haben alle relevanten Methoden eine Überladung in der Art (Include() als Beispiel):

Delphi-Quellcode:

function Include(ARangeFrom, ARangeTo: T): TSet<T>; overload;

Dadurch ist auch das Arbeiten mit Ranges größtenteils möglich. Sowas wie [a..f,z] ist allerdings auch nur über kleine Umwege möglich.

Beispiele:

Zitat:

BUT, how GREAT would it be to be able to do:

Delphi-Quellcode:

type
  TDay = (Monday, Tuesday, Wednesday, Thursday, Friday, Saturday, Sunday);

var days : TSet<TDay>; 
    b : boolean; 
begin 
  days := [Monday, Tuesday]  
  b := days.Intersect([Monday, Thursday]).IsEmpty;
end;

Delphi-Quellcode:

var days1, days2 : TSet<TDay>; 
begin
  days1 := TSet<TDay>.Create(Monday, Wednesday).Include(Sunday); // = [Monday..Wednesday,Sunday]
  days2 := [Tuesday, Thursday, Sunday];

  Caption := (days1 * days2).ToString();   // oder days1.Intersect(days2).ToString();
end;

Achtung: Da man den generischen Typ nicht auf "enum" (o.ä.) einschränken kann, muss man selbst aufpassen dass man den Typ nur mit Aufzählungstypen zusammen verwendet (alles andere macht auch nicht viel Sinn, aber es kompiliert halt und wird zur Laufzeit höchstwahrscheinlich entweder Fehler erzeugen oder zumindest nicht das tun was man erwartet!)

Achtung2: Das Ganze funktioniert wahrscheinlich nur für XE7+ !

Würde mich über Feedback freuen :)

[Der schöne Günther]

Symmetrische Differenzen, Holá!

Ich habe grade nur ein paar Sekunden lang hereingeschaut, sieht vielversprechend aus. Übersehe ich es noch, oder hat es keinen Enumerator? Also ein

Delphi-Quellcode:

for value in mySet do [...]

ginge noch nicht, oder?

PS: Das ToString() habe ich auch noch nicht ganz verstanden.

[Neutral General]

Zitat:

Zitat von Der schöne Günther (Beitrag 1291288)

Symmetrische Differenzen, Holá!

Ich habe grade nur ein paar Sekunden lang hereingeschaut, sieht vielversprechend aus. Übersehe ich es noch, oder hat es keinen Enumerator? Also ein

Delphi-Quellcode:

for value in mySet do [...]

ginge noch nicht, oder?

PS: Das ToString() habe ich auch noch nicht ganz verstanden.

Einen Enumerator gibts noch nicht. Das hatte ich glatt vergessen. Wird noch nachgerüstet.
Das ToString() gibt einen String in der Form "Monday, Thursday, Sunday" aus. Es wird dafür die RTTI benutzt.
Ist jetzt nichts was wirklich nützlich wäre. Eher zum Debuggen. Und bei Enums mit manuell zugewiesenen Werten für die einzelnen Elemente funktionierts wie üblich nicht.

[himitsu]

Und was ist mit AsString? (intern SetToString und StringToSet)


PS: Wenn du keine Namen bekommst, dann verwende doch einfach den nummerischen Index.



Klein bissl unschön, daß es immer die maximalen 32 Byte groß ist.

[Neutral General]

So. Enumerator ist nun enthalten und ToString() gibt jetzt Zahlen aus wenn es keine TypeInfos gibt.
AsString ist so eine Sache weil SetToString und StringToSet ein PTypeInfo eines Sets erwarten. Es gibt allerdings kein echtes Set (abgesehen von dem Byteset was nicht viel bringt). Hatte ein bisschen versucht da rumzumogeln und mir da ein eigenes Set-TypeInfo zu basteln mit dem Enum-Typinfo als Child, aber das hat nur gekracht. Habe mich entschlossen das jetzt erst mal sein zu lassen.

[Jens01]

Sieht sehr interessant aus.:thumb:
Würde irgendwie gut in dies Spring4D-Projekt reinpassen.
Gibt es dafür vielleicht auch eine Lizenz zB MPL o.ä..

[Neutral General]

Zitat:

Zitat von Jens01 (Beitrag 1291306)

Sieht sehr interessant aus.:thumb:
Würde irgendwie gut in dies Spring4D-Projekt reinpassen.
Gibt es dafür vielleicht auch eine Lizenz zB MPL o.ä..

Öh WTFPL oder so :mrgreen:
Ich habs nicht so mit Lizenzen. Erst recht nicht bei so ein paar Zeilen Code.

[himitsu]

SetToString = ToString mit optionalem [ und ] drumrum.

[Neutral General]

Zitat:

Zitat von himitsu (Beitrag 1291311)

SetToString = ToString mit optionalem [ und ] drumrum.

Ich weiß. Hast du gelesen was das Problem ist?

Delphi-Quellcode:

function SetToString(TypeInfo: PTypeInfo; Value: Integer; Brackets: Boolean): string;

Der erste Parameter ist ein Pointer auf die TypInfos eines Sets. Aber das kann ich dieser Funktion nicht geben, da es keinen nativen Set-Typ gibt abgesehen von dem internen Byteset, was aber bei einem AsString/ToString niemandem hilft.

[Jens01]

Zitat:

This Source Code Form is subject to the terms of the Mozilla Public
License, v. 2.0. If a copy of the MPL was not distributed with this
file, You can obtain one at http://mozilla.org/MPL/2.0/.

Das einfach oben einfügen.

Bedeutet halt, dass jeder das Ding benutzen darf. Wenn jemand das Ding erweitert, dann muss er es veröffentlichen unter gleicher Lizenz.