Die anderen Callbacks arbeiten analog :
Code
PROC CompareDates
PARAMETERS STRING dtEntry1, dtEntry2, LONG SortOrder
DECLARE FLOAT datum1, datum2, LONG x
datum1 = DT("SetDate", dtEntry1)
datum2 = DT("SetDate", dtEntry2)
x = DT("Compare", datum1, datum2)
IF SortOrder = lvwAscending
RETURN IF(x < 0, -1, 1)
ELSE
RETURN IF(x > 0, -1, 1)
ENDIF
ENDPROC
PROC CompareNumbers
PARAMETERS STRING sEntry1, sEntry2, LONG SortOrder
IF SortOrder = lvwAscending
RETURN IF(VAL(sEntry1) < VAL(sEntry2), -1, 1)
ELSE
RETURN If(VAL(sEntry1) > VAL(sEntry2), -1, 1)
ENDIF
ENDPROC
PROC CompareStrings
PARAMETERS STRING sEntry1, sEntry2, LONG SortOrder
IF SortOrder = lvwAscending
RETURN IF(sEntry1 < sEntry2, -1, 1)
ELSE
RETURN IF(sEntry1 > sEntry2, -1, 1)
ENDIF
ENDPROC
Alles anzeigen
Trotzdem funktioniert es nicht. DT("Compare", d1, d2) gibt sogar das zurück, was vom
Aufrufer erwartet wird. Da bräuchte ich sogar kein x und könnte
RETURN DT("Compare", datum1, datum2)
zurück geben.