Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Zählen von Mengen


Verzweifelt - Mi 18.02.04 12:11
Titel: Zählen von Mengen
Halli Hallo

Ich habe ein klein Frage betreffend der Menge

Problem:
Ich habe eine Menge definiert


Delphi-Quelltext
1:
TMenge = (test1, t2);                    


und möchte nun gerne von einem anderen Ort her herausfinden können wieviele Daten in dieser Menge vorhanden sind.
Wie ist dies Möglich?

Moderiert von user profile iconKlabautermann: Delphi-Tags hinzugefügt.


maximus - Mi 18.02.04 15:33

hi.

Zitat:
TMenge = (test1, t2);


das ist übrigens keine menge, sondern nur ein normaler 'enum' typ (aufzählung);

mit einer schleife könntest du zählen :wink:


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
type TMengen = set of TMenge;// jetzt haste eine menge...im prinzip eine menge bits

...
var i: TMenge;
     count:integer;      
     menge:TMengen;
begin

  menge := [test1, t2];
  count := 0;

  for i := low(i) to high(i) do if i in menge then inc(count);

end;