durch verschiede Sets iterieren

[DeddyH]

Dann ist TArray doch der bessere Ansatz, das kannst Du auch sortieren.

[Uwe Raabe]

Zitat:

Zitat von haentschman (Beitrag 1365545)

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

Sagte ich schon: "Der Rest kann eigentlich so bleiben."

Delphi-Quellcode:

var
  BlubbSet: TArray<TBlubb>; // TBlubb = (bb1, bb2, bb3, bb4, bb5, bb6, bb7);
...
case FYear of
  2016:
    begin
      BlubbSet := [bb1, bb2, bb3, bb4, bb5];
    end;
  2017:
    begin
      BlubbSet := [bb5, bb1, bb3];
    end;
end; 
...
for IBlubb in BlubbSet do
begin
  //
end;

[haentschman]

...Alles wird gut. :P

Danke, hat mir sehr geholfen...

[Raible]

ist ungetestet, aber ich würde das so lösen:

Code:

var
  BlubbSet: Set of TBlubb; // TBlubb = (bb1, bb2, bb3, bb4, bb5, bb6, bb7);
  bb: TBlubb;
...
case FYear of
  2016:BlubbSet := [bb1, bb2, bb3, bb4, bb5];
  2017:BlubbSet := [bb1, bb3, bb5];
else BlubbSet := [];end; // zur Sicherheit
...
for bb := Low(TBlubb) to High(TBlubb) do 
begin
  if not (bb in BlubbSet) then Continue; //überspringen wenn bb nicht im Set 

//  tu was immer Du tun musst ...
end;

[haentschman]

Danke...:P
Auch wenn das schon erledigt ist...:wink:

Zitat:

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.

...Da ich die Sortierung benötige ist das mit dem Set schlecht. :wink: Deshalb habe ich die TArray Variante eingebaut... :thumb: