Einzelnen Beitrag anzeigen

Benutzerbild von d3g
d3g

Registriert seit: 21. Jun 2002
602 Beiträge
 
#1

Unit zum Vergleichen von n Werten

  Alt 25. Jan 2003, 19:24
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
Angehängte Dateien
Dateityp: gz CompVal.tar.gz (10,4 KB, 12x aufgerufen)
-- Crucifixion?
-- Yes.
-- Good. Out of the door, line on the left, one cross each.
  Mit Zitat antworten Zitat