Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
5. Feb 2015
Er möchte nicht zwei Werte vergleichen (SameValue), sondern in einer Liste von Werten den Ähnlichsten heraussuchen.
Also eher wie MaxValue, nur eben nicht das Größte, sondern das Ähnlichste ... fast wie eine unscharfe Suche ala MatchText, zusammengemanscht mit einem IndexText.
array of const -> siehe Format = Man kann alles möglichen Typen übergeben (Integer, Float usw.) und entscheidet...
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
5. Feb 2015
Nein, ist mir nicht :zwinker:, aber bei VAR/OUT muß der Typ genau stimmen muß und da nur der Index-Typ vordefiniert ist, da hab ich das einfach mal gedreht. :stupid:
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
5. Feb 2015
Natürlich wäre es so auch möglich,
oder einfach nur so
function SimilarValue(const AValue: Double; AValues: array of const; out Index: Ineger): Double;
oder
function SimilarValue(const AValue: Double; AValues: array of Variant; out Index: Ineger): Double;
Funktioniert für alle Integer-Typen (beim Result natürlich mit Round) und allen normalen Float-Typen (Single und Double).