Сортировка по дате создания файла в TStringList

[evg_m]

f:=copy(...., 1, 10);

вы ОТРЕЗАЛИ здесь время

и пытаетесь декодировать выделить ТОЛЬКО время игнорируя дату в строке НЕ содержащей времени

copy(f, 12, ...);

в то время как вам нужна ПОЛНАЯ информация о дате-временной группе.( и дата и время ОДНОВРЕМЕННО)

[artemavd]

Сообщение от evg_m

вы ОТРЕЗАЛИ здесь время

и пытаетесь декодировать ТОЛЬКО время игнорируя дату в строке НЕ содержащей времени

Так вот я и не могу пока придумать, как и со временем сделать как с датой.
Сначала по дате надо отсортировать, потом по времени.
Чтобы за один день файлы (если такие есть), были отсортированы и по времени еще, как в случае с датой.

[evg_m]

Чтобы за один день файлы (если такие есть), были отсортированы и по времени еще, как в случае с датой.

дата и время(TDateTIme) это ОДНО число и их можно сравнивать вместе.
1 янв 2020 10:05:33:077 < 3 янв 2020 07:55:12:555

[artemavd]

Сообщение от evg_m

дата и время(TDateTIme) это ОДНО число и их можно сравнивать вместе.
1 янв 2020 10:05:33:077 < 3 янв 2020 07:55:12:555

Ок, изменил на вот так:

function CompareDates(List: TStringList; SortStart,SortFinish: Integer): Integer;
begin
  Result:=CompareValue(StrToDate(Copy(List[SortFinish],1,19)),StrToDate(Copy(List[SortStart],1,19)));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  SRList: TSringList;
begin
  SRList:=TStringList.Create;
  Memo2.Clear;
  try
    for i:=0 to Memo1.Lines.Count - 1 do
    begin
       SRList.Add(DateTimeToStr(GetFiileDateTime(Memo1.Lines[i])) + ' | ' + ExtractFileName(Memo1.Lines[i]));
    end;
    SRList.CustomSort(CompareDates);
    Memo2.Lines.Assign(SRList);
  finally
    SRList.Free;
  end;
end;

Но получаю ошибку:
"08.09.2022 14:47:36 is not a valid date"

[evg_m]

strtoDATE
strtoTIME
strtoDATETIME

[artemavd]

Сообщение от evg_m

strtoDATE
strtoTIME
strtoDATETIME

Написал так:

function CompareDates(List: TStringList; SortStart,SortFinish: Integer): Integer;
begin
 Result:=CompareValue(StrToDateTime(Copy(List[SortFinish],1,19)),StrToDateTime(Copy(List[SortStart],1,19)));
end;

Вроде ошибки нет, сортируется и по дате и по времени.
Буду проверять тогда, тестировать сейчас, смотреть.
Спасибо большое за помощь! Если не объявлюсь, то значит задача решилась.