4 replies to this topic

[MatejSi]

Hello Boki,

I have two issues with Date Nodes of Inspector6

 

1) When i create a date node and pick a date i.e. 5.3.2020, it shows correctly 5.3.2020 in the node, but when I try to read the value node.AsDateTime it always shows current date not the date in the node. Probably there is some problem with reading the value asdatetime and it throws Now; as default

 

2) When I set HideEmpty to true and assign node.AsDateTime := field[0].AsDateTime where field[0] is MySQL field with date column and null value, it shows 30.12.1899 (ignoring the HideEmpty property)

 

Please see attached file.

 

Thank you for your help.

Matěj

Attached Files

•  datenode.png   8.91KB   0 downloads

[Boki (Berg)]

Hi,

 

1) I'm using StrToDateTimeDef internally. Can you please try to test this function with one string variable and see if it works. Maybe FormatSettings need to be set? I will try to see why popup is not synchronised. I will change that if date is invalid, it set to 0.0

 

2) I will check it now and try to fix it. I think I now what is the problem.

[Boki (Berg)]

For 2nd issue, try changing line 3054 in NxInspectorNode6.pas:

 

procedure TNxInspectorNode6.SetAsDateTime(const Value: TDateTime);
begin
  if Value = 0.0 then Self.Value := '' else Self.Value := DateTimeToStr(Value);
end;

[MatejSi]

Hi,
The 2nd issue is solved. Thank you.
 
For the 1st issue - I thought that when you use DateTimeToStr and StrToDateTime without changing FormatSettings, it should take the same formatsettings based on some system default.
 
I tried to set the formatsettings and this part of code works:

var  fs : TFormatSettings;
begin


  fs := TFormatSettings.Create;
  fs.ShortDateFormat:='d. m. yyy';
  fs.DateSeparator:='.';

  edit1.Text:=datetostr(date, fs);
  showmessage(datetostr(strtodate(edit1.Text,fs),fs)); 

but i would like to have something more universal (not always the date will be in this format). But when I try to use this, it throws invalid date format error:

var  fs : TFormatSettings;
begin

fs := TFormatSettings.Create;
GetLocaleFormatSettings(syslocale.DefaultLCID, fs);

  edit1.Text:=datetostr(date, fs);
  showmessage(datetostr(strtodate(edit1.Text,fs),fs));

Do you know how to set it in your code so that it works with the same FormatSettings (StrToDateTime and also DateTimeToStr)

 

Thanks for your help.

Matěj

[MatejSi]

OK, i have found out that when I call showmessage(formatsettings.dateseparator) it shows '/' instead of local '.' 

 

So I set FormatSettings.DateSeparator:='.' and now it works (also Popup is now synchronized). So it was not issue of your component.

 

Thanks, Matěj

 

 

P.S. I still don't get it why when you use DateToStr it uses correct local date separator '.' but when you try it backwards StrToDate it tries to use '/' as date separator.