Da ja überall das Selbe ausgeführt wird, ginge es auch so:
Delphi-Quellcode:
if ((Operator = 'größer gleich') and (Wert >= Abfrage))
or ((Operator = 'größer') and (Wert > Abfrage))
or ((Operator = 'kleiner') and (Wert < Abfrage)) then
Ergebnis := Quali;
Und wenn du statt dem Text sowas wie 'nen Index verwende würdest, dann könnte man auch noch die "unpraktischen" Textvergleiche einsparen.
(z.B. 0=größergleich 1=größer 2=kleiner ...)
PS: ich glaub da wolltest du ein "kleiner als" haben?
Code:
end else if Operator = 'kleiner' then
begin
if Wert [color=#ff0000][b]<[/b][/color] Abfrage then
Ergebnis := Quali;
[add]
Zitat von
3_of_8:
Aber in der letzten Abfrage ist ein Fehler: Statt < steht da >.
gut erkannt
Zitat von
3_of_8:
Ich glaube, einfacher geht es nicht. Aber in der letzten Abfrage ist ein Fehler: Statt < steht da >.
aber es geht doch
