var
TmpDatumtijd:TDateTime;
MyFormatSettings:TFormatSettings;
begin
MyFormatSettings := FormatSettings;
MyFormatSettings.DateSeparator := ':';
MyFormatSettings.ShortDateFormat:='yyyy:mm:dd';
MyFormatSettings.TimeSeparator:=':';
MyFormatSettings.LongTimeFormat:='hh:nn:ss';
if TryStrToDateTime('2018:09:07 12:34:56',TmpDatumtijd, MyFormatSettings)
then ....
This doesn't work, result is always no valid date, but the date is valid in my opnion
MyFormatSettings := FormatSettings;
MyFormatSettings.DateSeparator := '-';
MyFormatSettings.ShortDateFormat:='yyyy-mm-dd';
MyFormatSettings.TimeSeparator:=':';
MyFormatSettings.LongTimeFormat:='hh:nn:ss';
if TryStrToDateTime('2018-09-07 12:34:56',TmpDatumtijd, MyFormatSettings)
then ...
This works ok!!!
What am I doing wrong?
Lazarus v2.010 r63526, Windows 10