Having just spent a couple of hours this morning scratching my head as to why my app wasn’t doing what I expected, I discovered that the problem was that it was simply CodeSite ignoring my SendVariant calls because my variant was an INT64.
Any chance that
a. TCodeSiteLogger.SendVariant can support INT64 please
and
b. Could you add an “else” to the “case VarType( Value ) of” test please, with maybe a message along the lines of
SendFmtMsg(Msg + ‘: Variant is of unsupported Type %d’, [Ord(VarType( Value ))]);
which would have helped me realise what was going on somewhat sooner.
Many thanks
Cheers
David