Всем вопрос. есть функция, которая иногда в линуксе валится с

исключением
EConvertError Invalid argument to date encode
на строке Result:=LocalToUtcDateTime(FileDateToDateTime(SR.Time));

function GetFileDateUtc(const FileName: string): TDateTime;
var
SR: TSearchRec;
begin
// This could work on linux also?
try
if (FindFirst(FileName, faAnyFile, SR) = 0) then
begin
//
{$ifdef WIN32FILETIME}// WIN32
// Here we have directly UTC date-time:
Result := FileTimeToUtcDateTime(SR.FindData.ftLastWriteTime);
{$else ->fallback}
Result:=LocalToUtcDateTime(FileDateToDateTime(SR.Time));
{$endif}
end else
Result := 0;
finally
FindClose(SR);
end;
end;

что тут не так может быть?
функция из пакета Синапс, компилятор Delphi 10.4

Залогировать?

если идей не будет, буду что-то с логами думать

Если FindFirst вдруг не равно 0, то что сделает FindClose?

Ему пофиг - оно с со структурой работает

подумалось что будет если файла нет...

Дим, я с трубы, не могу линк дать, найди мой fwzip там в утилсах есть пара тройка функций работы со временем- может даст направление

Чем не устраивает SysUtils.FileAge? он, кстати, так же падает или работает? Вообще findfirst может много чего найти, например метку тома, или корень диска. Не факт что дата-время там вообще имеют смысл.

если б я знал когда оно падает, то проверил бы :) насчет рута диска или папки мысль ок, проверю

И даже volume label :) Гммм... Ну так сделай логирование, чтобы при падении полностью SR писала

Действительно пофиг. И в D7 тоже проверяет procedure FindClose(var F: TSearchRec); begin {$IFDEF MSWINDOWS} if F.FindHandle <> INVALID_HANDLE_VALUE then begin Winapi.Windows.FindClose(F.FindHandle); F.FindHandle := INVALID_HANDLE_VALUE; end; {$ENDIF MSWINDOWS} {$IFDEF POSIX} if F.FindHandle <> nil then begin closedir(F.FindHandle); F.FindHandle := nil; end; {$ENDIF POSIX} end;