Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Kleinster Wert in einem Set

    Delphi
    by alzaimar, 10. Mai 2006
  Blöde Frage :zwinker:... Natürlich geht das nicht. Ich äh... :oops: wollte äh... nur Deine Aufmerksamkeit testen. :wall:
  function OrdMinElement(ASet: TAufzaehlungsMenge): Integer; // Liefert die Ordnungszahl
  var
  i: TAufzaehlungsTyp;
  
  begin
  Result := -1; // Falls die Menge leer ist
  for i := Low(TAufzaehlungsTyp) to High(TAufzaehlungsTyp) do
  if i in ASet then Begin
  ...
• Forum: Object-Pascal / Delphi-Language

  Re: Kleinster Wert in einem Set

    Delphi
    by alzaimar, 10. Mai 2006
  Die einzig saubere Lösung (wirklich sauber), ist die Implementierung von Blackjack (eventuell mit einer kleinen kosmetischen Korrektur):
  function OrdMinElement(ASet: TAufzaehlungsMenge): Integer; // Liefert die Ordnungszahl
  var
  i: TAufzaehlungsTyp;
  
  begin
  Result := -1; // Falls die Menge leer ist
  for i := Low(TAufzaehlungsTyp) to High(TAufzaehlungsTyp) do
  if i in ASet then...