Unit zum Vergleichen von n Werten

[d3g]

Hallo zusammen,

das KI-Problem von Yheeky hat mich auf keine Idee gebracht. Ich habe (um mal endlich wieder was Produktives zu machen ;o) eine Unit geschrieben, die so aufgebaut ist (oder zumindest sein soll), dass sie in möglichst viele Projekte einfach zu integrieren ist.

Die Unit ist eine Betaversion (ich übersehe gern Fehler, auch einfache), deshalb bitte ich um Bugreports und Verbesserungsvorschläge. Die Unit sollte mit Delphi 4 und höher laufen, sowie mit allen Kylix-Versionen, und ist LGPL-lizenziert.

Ein Beispielaufruf wäre:

Delphi-Quellcode:

var
  a: TVarArray;

// ...

SetLength(a, 3);
a[0] := 5;
a[1] := 5;
a[2] := 3;

if (CompareValues(a, 3, '=>>')) then
  { ... };

Das wäre kurz für

Delphi-Quellcode:

if ((a[0] = a[1]) && (a[0] > a[2]) && (a[1] > a[2])) then
  { ... };

Das ganze scheint vielleicht auf den ersten Blick nicht sinnvoll, aber ich bin überzeigt, dass die Unit gute Dienste leisten, wenn man die gleichen Werte immer mit unterschiedlichen Operatoren vergleicht und die Operatoren vorausberechnen kann oder viele Werte miteinander vergleicht und die Übersicht einigermaßen behalten will.

MfG,
d3g