Forum: Object-Pascal / Delphi-Language
Delphi
by Shaman,
9. Mai 2006
Sie ist... :wall:
Okee, die beiden Funktionen sind nur für Mengen mit nicht mehr als 32 Elementen geeignet. Sollte für den Normalgebrauch auch reichen, für grössere Mengen wird man eh TBits verwenden.
Gruss
Shaman
Forum: Object-Pascal / Delphi-Language
Delphi
by Shaman,
9. Mai 2006
hey there
Ups :oops:
Ich war wohl müde... auch korrigiert. Der Cast in der ersten Funktion ist ok, da ich einfach einen ordinalen Typ benötige, in der Schleife aber die tatsächliche Grösse berücksichtig wird.
Forum: Object-Pascal / Delphi-Language
Delphi
by Shaman,
8. Mai 2006
Hey there
Hier zwei allgemeine Lösungen:
function ElemCount(const ASet; const Size: Cardinal): Byte;
var
X, I: Integer;
begin
Result:= 0;
X:= Cardinal(ASet);