> Do it properly, and add a tab_None or somesuch
If I may, I would prefer "somesuch" vs adding a new constant.
But, really, would it not possible to write the equivalent of
if (kind <> tabulatorkindty(-1)) then
Maybe using in this case:
if (kind = tabulatorkindty(tak_lef)) or (kind = tabulatorkindty(tak_right))
or (kind = tabulatorkindty(tak_centered)) or (kind =
tabulatorkindty(tak_decimal)) then
But I would prefer a shorter way, mainly if the array is big.
----------------------
Other question relative to Warnings:
How to do this:
tdataevent(de_afterapplyupdate)
where TDataEvent is defined as
TDataEvent = (deFieldChange, deRecordChange, deDataSetChange,
deDataSetScroll, deLayoutChange, deUpdateRecord, deUpdateState,
deCheckBrowseMode, dePropertyChange, deFieldListChange, deFocusControl,
deParentScroll,deConnectChange,deReconcileError,deDisabledStateChange);
and de_afterapplyupdate was defined with:
const
...
de_afterapplyupdate = ord(high(tdataevent))+6;
________________
Now:
---> tdataevent(de_afterapplyupdate)
Gives as Warning:
"msebufdataset.pas(4070,16) Warning: range check error while evaluating
constants (20 must be between 0 and 14)"
?
> It is a warning not an error.
Yes, but it shows that something is wrong and it is time now to fix this
before problems
Fre;D
-----
Many thanks ;-)
--
Sent from: http://free-pascal-general.1045716.n5.nabble.com/
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
