Einzelnen Beitrag anzeigen

Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.116 Beiträge
 
Delphi 11 Alexandria
 
#2
  Alt 15. Jun 2003, 01:44
Moin Dezipaitor,

ich würde das anders trennen

EineKonstante
>=
2.0

Oder allgemein

EineKonstante
EinComparator
EinVergleichswert

Die einfache Variante ginge dann mit if/then, bei der aufwändigeren könntest Du Dir eine Tabelle (TStringList) der möglichen Comparatoren erstellen, und dabei als Objekt eine Kennung die angibt, welcher Comparator das ist, so dass Du case/of benutzen kannst.

Stilisiert:

Delphi-Quellcode:
function Vergleiche(EineKonstante,EinVergleichswert,EinComparator) : boolean;

begin
  if EinComparator = '>=then begin
    Result := EineKonstante >= EinVergleichsWert;
    exit;
  end;
  // ...
end;
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat