Zählen von Mengen

Verzweifelt · Hält's aus hier Beiträge: 1

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 Klabautermann: Delphi-Tags hinzugefügt.

maximus · Beiträge: 896 Win XP, Suse 8.1 Delphi 4/7/8 alles prof

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:

markieren

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;

_________________
mfg.
mâximôv

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme