mORMot Open Source

Ghiber

Member

Registered: 2016-02-17

Posts: 14

SynVirtualDataSet unit problem

Hello, in this unit there is a function called

TSynVirtualDataSet.GetFieldData in which a line was written like this

result: = Data <> nil; // null field or out-of-range RowIndex / Field

assuming that at some point the Data variable can be Nil

but below in the same function is the line when the field is type:  ftDate, ftTime, ftDateTime

if PDateTime (Data) ^ = 0 then

when the data is Nil then it would be something like that

if PDateTime (Nil) ^ = 0 then

generating an error the compiler
  and the condition is never met

ab

Administrator

From: France

Registered: 2010-06-21

Posts: 14,655

Website

Re: SynVirtualDataSet unit problem

Does https://synopse.info/fossil/info/7638b084a9 sound better?

Thanks for the feedback!

Ghiber

Member

Registered: 2016-02-17

Posts: 14

Re: SynVirtualDataSet unit problem

ok perfect, thanks for the fix, this solves the problem when the date is null