For me, I don't understand "tabulatorkindty(-1)". I don't understand why FPC
3.0.4 accept it without even a warning.
With FPC 3.0.4, the following code compiles without warning and works:
type
tabulatorkindty = (ak_left, tak_right, tak_centered, tak_decimal);
var
kind: tabulatorkindty;
begin
kind := tabulatorkindty(-1);
if kind = tabulatorkindty(-1) then
WriteLn('hello');
end.
Maybe we could make the following modification?
type
tabulatorkindty = (tak_nil = -1, tak_left, tak_right, tak_centered,
tak_decimal);
--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/
_______________________________________________
mseide-msegui-talk mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk
