Forum: Object-Pascal / Delphi-Language
Delphi
by Uwe Raabe,
18. Feb 2021
Wieso nicht? Wenn nach der Zuweisung OrderField.Column := ACol; das OrderField = ofNone ist, dann ist das keine gültige Spalte. (Außer -1 wäre eine gültige Spalte)
Forum: Object-Pascal / Delphi-Language
Delphi
by Uwe Raabe,
18. Feb 2021
Ich hätte noch einen anderen Ansatz mit einem Helper, der nebenbei noch die Konstanten in der TOrderField-Definition eliminiert:
type
TOrderField = (ofNone, ofBelegnummer, ofBelegdatum, ofKonto, ofKontoName, ofBank, ofZahldatum);
type
TOrderFieldHelper = record helper for TOrderField
private const
cColumnMap: array of Integer = (-1, 4, 6, 7, 8, 9, 10);
public