Natürlich wäre es so auch möglich,
oder einfach nur so
Delphi-Quellcode:
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).