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