Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
9. Mai 2006
@generic: das nenne ich einen brute force Ansatz - gesucht wurde ursprünglich Eleganz und mittlerweile einfach eine "generische" Lösung. Da Object Pascal einen "ungeordneten" Mengentyp implementiert, gibt es keine Operatoren für Min() und Max(), also muss man sie selbst schreiben - oder man nimmt deine Lösung und verzichtet auf Universalität.
Freundliche Grüße
marabu
Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
9. Mai 2006
Hallo.
Klaus hat für seinen Anwendungsfall schon eine sehr elegante Lösung, die allerdings so nicht auf ältere Versionen von Object Pascal übertragen werden kann. Eine allgemeingültige Lösung für die Suche nach dem "kleinsten" member könnte so aussehen:
function MinMember(const ASet; const ASize: Byte): Integer;
type
TByteArray = array of Byte;
PByteArray = ^TByteArray;
var