delphi - How to avoid TDateTime Data Rounding -

-

i writing column , cell classes fmx tgrid contain tcalendaredit , ttimeedit instances in every cell. works fine except proper processing of changes done in these child controls.

type   tfmtvalue<t> = record     fieldvalue: t;     modified: boolean;     appended: boolean;     deleted: boolean;   end;    tdatetimecell = class(tstyledcontrol)     private       fdate_time: tfmtvalue<tdatetime>;       procedure setdatetime(const value: tfmtvalue<tdatetime>);       function getdatetime: tfmtvalue<tdatetime>;     protected       procedure setdata(const value: tvalue); override;     public       property date_time: tfmtvalue<tdatetime> read getdatetime write setdatetime;     ...       end; ...        function tdatetimecell.getdatetime: tfmtvalue<tdatetime>;     begin       fdate_time.modified := (fdate_time.modified) or         (fdate_time.fieldvalue <> fcalendaredit.date +          + ftimeedit.time);       fdate_time.fieldvalue := fcalendaredit.date + ftimeedit.time;       result := fdate_time;     end;      procedure tdatetimecell.setdata(const value: tvalue);     begin       date_time := value.astype<tfmtvalue<tdatetime>>;       inherited setdata(tvalue.from<tdatetime>(fdate_time.fieldvalue));       applystyling;     end;      procedure tdatetimecell.setdatetime(const value: tfmtvalue<tdatetime>);     begin       fdate_time := value;       fcalendaredit.date := dateof(fdate_time.fieldvalue);       ftimeedit.time := timeof(fdate_time.fieldvalue);       fdate_time.fieldvalue:=fcalendaredit.date + ftimeedit.time; //this line helps not in cases     end;

the idea data assigned via tgrid ongetvalue event handler. both date , time displayed. user activity catched , modified flag set. problem flag set true without user activities. suspect due rounding of time part of tdatetime. there no other ways code assignes values fcalendaredit.date , ftimeedit.time.

how can compare data stored in fcalendaredit.date , ftimeedit.time stored in fdate_time.fieldvalue?

appended

setting flag in way not resolve issue.

  fdate_time.modified := (fdate_time.modified) or     (dateof(fdate_time.fieldvalue) <> fcalendaredit.date) or     (timeof(fdate_time.fieldvalue)<> ftimeedit.time);

appended 2. on valued advice of @ken-white. if replace comparison line by

fdate_time.modified := (fdate_time.modified) or (not samedatetime(fdate_time.fieldvalue,  fcalendaredit.date + ftimeedit.time));

it works fine. tdatatime comparison must done function only.

tdatetime of type double, means it's floating point value, , therefore subject usual issues of binary representation when doing comparisons equality without specifying acceptable delta (difference)..

specifically tdatetime values, can use dateutils.samedatetime compare equality down less 1 millisecond:

fdate_time.modified := (fdate_time.modified) or            (not samedatetime(fdate_time.fieldvalue,              fcalendaredit.date + ftimeedit.time));

Comments

Post a Comment

Popular posts from this blog

java - Static nested class instance -

-
this question has answer here: java inner class , static nested class 23 answers i came across in java, know static nested class why create instance of 'static'. isn't whole idea of 'static' use without instance? understand concept of inner classes, why (and frankly how possible to) create 'instance' of 'static' member @ ? why this: 1- outerclass.staticnestedclass nestedobject = new outerclass.staticnestedclass(); 2- nestedobject.anestedclassmethod(); and not this: 1- outerclass outerinstance=new outerclass(); 2- outerinstance.staticnestedclass.anestedclassmethod(); use on inner classes, keyword static indicates can access inner class without instance of outer class. for example: public class outer { public static class inner { /* code here. */ } } with construction, can create instance of inn
Read more

c# - Bluetooth LE CanUpdate Characteristic property -

-
i building xamarin.forms cross platform mobile app, uses monkey.robotics bluetoth low energy functionality. connecting mbed based implimentation of custom gatt service . in xamarin c#, triggers characteristic. canupdate property in monkey.robotics? this standard example c# based on: if (characteristic.canupdate) { characteristic.valueupdated += (s, e) => { debug.writeline("characteristic.valueupdated"); device.begininvokeonmainthread( () => { updatedisplay(characteristic); }); isbusy = false; // spin until first result received }; isbusy = true; characteristic.startupdates(); } this has been working, since changed own custom gatt service connecting to, canupdate property false. property , how triggered? me debugging gatt service code. thanks monkey.robotics open sour
Read more

JavaScript - Replace variable from string in all occurrences -

-
ok, know if have character '-' , want remove in places in string javascript, ... someword = someword.replace(/-/g, ''); but, when applying array of characters, s not working ... const badchars = ('\/:*?"<>|').split(''); let filename = title.replace(/ /g, '-').tolocalelowercase(); (let item = 0; item < badchars.length; item++) { // below not work global '/ /g' filename = filename.replace(/badchars[item]/g, ''); } any ideas? /badchars[item]/g looks badchars , literally, followed i , t , e , or m . if you're trying use character badchars[item] , you'll need use regexp constructor, , you'll need escape regex-specific characters. escaping regular expression has been well-covered . using that: filename = filename.replace(new regexp(regexp.quote(badchars[item]), 'g'), ''); but , don't want that. want character class: let filename = title.replac
Read more