Offenes Array oder Set als Parameter

[Schwedenbitter]

Danke erstmal für die Antworten und Ideen!

Zitat von Der schöne Günther:

Ich verstehe nicht wo hier auf einmal ein "Set" ins Spiel kommt. Ein Set ist eine Menge von mehreren Enumerationstypen von denen jedes Vorkommen ein- oder keinmal enthalten sein darf.

genau.

Ich stelle mir das in etwa so vor (=Brainstorming, kein Code) und komme deshalb auf Set:

Delphi-Quellcode:

Const
   DRV         : TRect = ( Left:0; Top:0; Right:20; Bottom:20);
   Knappschaft : TRect = ( Left:20; Top:20; Right:40; Bottom:40);
   // usw. die Positionen bleiben immer gleich
Type
   TBlankPos = (DRV, Knappschaft, ...);
   TBlank    = Set Of TBlankPos;

Function IsEmpty(Image: TBitmap; BarCodes: TBlank): Boolean; // Kopf sehr verkürzt
Begin
   // mache etwas ...
End;

Procedure TForm1.Bildkommtan(Image: TBitmap);
Begin
   If IsEmpty(Image, [DRV]) Then ShowMessage('Leeres Bild')
   Else ShowMessage('Bild mit Inhalt');
End;

Ein Array wäre für mich denkbar (sonst stünde es nicht in der Überschrift), aber vermutlich eher die Notlösung. Denn ich müsste die Länge festlegen, es mit Daten bestücken etc. Ich fände das als Konstante besser lesbar. Mir geht es aber eben auch hauptsächlich darum, es von vorn herein erweiterbar zu gestalten.