durch verschiede Sets iterieren

[haentschman]

Moin...:P

Es ist noch früh am Morgen...:wink:

Ich habe eine Schleife die in Abhängigkeit vom Jahr verschiedene Sets iterieren muß...

Delphi-Quellcode:

var
  BlubbSet: Set of Blubb; // TBlubb = (bb1, bb2, bb3, bb4, bb5, bb6, bb7);
...
case FYear of
  2016:
    begin
      BlubbSet := [bb1, bb2, bb3, bb4, bb5];
    end;
  2017:
    begin
      BlubbSet := [bb1, bb3, bb5];
    end;
end; // Das Set wird wie erwartet angelegt.
...
for I := Low(BlubbSet) to High(BlubbSet) do // <- Inkompatible Typen. ????
begin
  //
end;

Bitte helft mir auf die Sprünge... :oops:

[Der schöne Günther]

Und von welchem Typ soll i sein? TBlubb?

Verstehe das Low und High nicht. Warum nicht einfach

For myBlubb in BlubbSet Do ...

[haentschman]

Moin...:P

lokale Schleifenvariable = I: Integer;

[p80286]

Ich bin auf dem gleichen Dampfer wie der schöne Mann. Warum behandelst Du ein Set wie ein Array?

Gruß
K-H

[Uwe Raabe]

Delphi-Quellcode:

var
  iBlubb: TBlubb;
...
for IBlubb in BlubbSet do // <- Inkompatible Typen. ????
begin
  I := ord(iBlubb); // falls das I als Integer überhaupt gebraucht wird
  //
end;

[haentschman]

Zitat:

Warum behandelst Du ein Set wie ein Array?

:oops: weil ich es grad nicht besser weiß. Ich habe normal mit Arrays nichts zu tun...

Das for/in funktioniert. Aber die Sortierung ist immer so wie in der Deklaration. :? Aber auf die "gewünschte" Sortierung bin ich angewiesen...

Delphi-Quellcode:

case FYear of
  2016:
    begin
      BlubbSet := [bb1, bb2, bb3, bb4, bb5];
    end;
  2017:
    begin
      BlubbSet := [bb5, bb1, bb3]; // Reihenfolge egal :-( 
    end;
end; // immer BlubbSet := [bb1, bb3, bb5];

[Der schöne Günther]

Dann ist das Standard-Delphi Set nicht das was du suchst.

[p80286]

Einmal anders herum, was willst Du erreichen?
Ein Set ist normal nicht sortiert. Es enthält irgendetwas oder nicht. Natürlich haben die Daten intern eine Reihenfolge, aber das sollte für Dich irrelevant sein.

Gruß
K-H

[Uwe Raabe]

Zitat:

Zitat von haentschman (Beitrag 1365541)

Das for/in funktioniert. Aber die Sortierung ist immer so wie in der Deklaration. :? Aber auf die "gewünschte" Sortierung bin ich angewiesen...

Ein Set hat per Definition keine Sortierung. Lediglich der Basistyp hat eine. Wenn die Reihenfolge wichtig ist, dann sind Arrays der bessere Ansatz.

Delphi-Quellcode:

var
  BlubbSet: TArray<TBlubb>; // TBlubb = (bb1, bb2, bb3, bb4, bb5, bb6, bb7);

Der Rest kann eigentlich so bleiben.

Achtung! Es hindert dich niemand, ein TBlubb mehrmals in das Array zu setzen. Bei einem Set wäre das egal.

[haentschman]

Was ich möchte:

Die ausgewählten Enumerations (z.B. bb4, bb2, bb7 = "Set" = beliebige Reihenfolge) aus TBlubb = (bb1, bb2, bb3, bb4, bb5, bb6, bb7) in dieser Reihenfolge durchiterieren.
Hintergrund:
In der Reihenfolge des gewünschten "Sets" werden komplexe Objekte erzeugt die dann in einer Combobox angehängt/eingefügt verden sollen. Die Reihenfolge (früher in der DB als "Position" abgelegt) ist nicht mehr definiert, da eine generische Erzeugung der Objekte anhand des "Sets" erfolgen soll. Ich will mir aber die Möglichkeit Definition der Reihenfolge, unabhängig von der Position in TBlubb, offen halten.

Zitat:

Wenn die Reihenfolge wichtig ist, dann sind Arrays der bessere Ansatz.

... aber wie weise ich das Array, welches je Jahrgang verschiedene Dimensionen hat, einer Variablen zu um das Array durchzuiterieren. :gruebel: