Kleinster Wert in set

[Stevie]

Hi Leute,

ich hab folgendes:

Delphi-Quellcode:

var Indizes: set of 1..20;

Ich möchte gerne den kleinsten Wert herausfinden, der in der Menge ist. Irgendwie hab ich nix dazu gefunden?! :wall: :gruebel:

[Shaman]

Delphi-Quellcode:

var
  I: Integer;
begin
  for I:= 1 to 20 do
    if I in Indizes then Break;
  Caption:= IntToStr(I);
end;

Gruss
Shaman

[Stevie]

:roll: Jaaaa, das ist nur ein Beispiel, wenn ich jetzt set of 1..30 hab??? Gibt's nicht was generisches?

[Shaman]

Wie ist denn deine allgemeine Deklaration von Indizes?

[Shaman]

Sonst mach halt

Delphi-Quellcode:

for I:= 1 to SizeOf(Indizes) shl 3 do
  if I in Indizes then Break;

[Stevie]

Ich hab's jetzt so gemacht:

Delphi-Quellcode:

type
  TSortiIndizes = 1..20;
  TSortiSet = set of TSortiIndizes;
var
  Indizes: TSortiSet;

Dann kann ich an eine Prozedur einen Parameter vom Typ TSortiSet übergeben...

Aber sets sind doch eigentlich Bit-Flags (oder so, das ist nicht so mein Bereich :mrgreen:)
Kann man dann nicht - egal welcher Typ - irgendwie herausfinden, welcher Wert der kleinste ist?

Ungefähr so (ich weiß, nicht ganz richtig):

Delphi-Quellcode:

funktion Min(pSet: pointer; pSetTyp: pointer): Integer;

Und diese Funktion ermittelt dann das Minimum?

P.S. Was macht denn

Delphi-Quellcode:

for I:= 1 to SizeOf(Indizes) shl 3 do
  if I in Indizes then Break;

[Shaman]

Delphi-Quellcode:

type 
  TSortiIndizes = 1..20; 
  TSortiSet = set of TSortiIndizes; 
var 
  Indizes: TSortiSet; 
  I: TSortiIndizes
begin
  for I:= TSortiIndizes(0) to TSortiIndizes(SizeOf(Indizes) shl 3 - 1) do
    if I in Indizes then Break;
end;

Das sollte das machen, was Du willst. I ist dann das kleinste Element.

Gruss
Shaman

[maximov]

Da gibt es ein bessere variante, die ohne das gekröse mit sizOf auskommt:

Delphi-Quellcode:

type
  TSortiIndizes = 1..20;
  TSortiSet = set of TSortiIndizes;
var
  Indezes: TSortiSet;
  i:TSortiIndizes;
..
for i := low(i) to high(i) do
  if i in Indezes then break;

:-D

[Shaman]

Ist doch langweilig so :wink:

[glkgereon]

Ich grab den Thread nochmal aus...weil es um was ganz ähnliches geht^^
ich habes folgendes Konstrukt:

Delphi-Quellcode:

Bereich: Set of Char = ['a'..'Z'];

wobei es halt unterschiedlich sein kann...könnte auch ['c'..']'] sein...

und brauche nun den höchsten und den niedrigsten wert...wäre auch egal wenn es der Ord() wäre oder ähnliches...

Wie mache ich das?