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

[artemavd]

Добрый день!

Есть такой код, который сортирует файлы по времени их создания от самого последнего до первого, в обратном порядке.
Проблема в том, что мне нужно, в Memo2 вывести не только полученную дату создания файлов, но, и их имена, для дальнейшего действия над ними.
Вот код:

function CompareDates(List: TStringList; SortStart,SortFinish: Integer): Integer;
begin
  Result:=CompareValue(StrToDate(List[SortFinish]),StrToDate(List[SortStart]));
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(GetBefore(' ',DateTimeToStr(GetFiileDateTime(Memo1.Lines[i]))));
    end;
    SRList.CustomSort(CompareDates);
    Memo2.Lines.Assign(SRList);
  finally
    SRList.Free;
  end;
end;

Прошу помощи в доработке кода.

[evg_m]

1. добавлять не только дату, но и имя файла

datetimetostr(... ) + '|' +Memo1.Lines[i];

2. сравнивать не весь текст, а только часть содержащую дату

 strtodate( copy(list[sortfinish], 1, ???);

[artemavd]

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

1. добавлять не только дату, но и имя файла

datetimetostr(... ) + '|' +Memo1.Lines[i];

2. сравнивать не весь текст, а только часть содержащую дату

 strtodate( copy(list[sortfinish], 1, ???);

Спасибо за помощь!

А вместо ??? нужно какое значение подставить? 10? В дате же 10 символов...

[NetSpace]

у меня долго, но так реализовано. 10 лет назад чего-то делал для переименование 50-60 тыс. файлов в папке.

//----- сортируем список по времени создания в порядке убывания ----------
if(RadioButton9.Checked=True)then
      begin
         //----- переименовываем список на промежуточный -----------------------
         for i:=nm to nm+q-1 do
         begin
            Name1:=sps[i-nm+1];
            Insert('~',sps[i-nm+1],0);
            Name2:=sps[i-nm+1];//промежуточное имя
            if(FileExists(Put+Name1)=False)then Memo1.Lines.Add('Файл '+Name1+' не найден');
            if(FileExists(Put+Name1)=True)then
            begin
               AssignFile(F,Put+Name1);
               Rename(F,Put+Name2);
            end;
         end;
         q:=0;
         PrintFile('*'+Mask,Put);//считаем количество файлов *.Mask
         //----- сортируем по размеру в порядке возрастания --------------------
         for j:=1 to q-1 do for i:=1 to q-1 do
         begin
            n1:=StrToInt(tim[i]);
            n2:=StrToInt(tim[i+1]);
            if(n2<n1)then
            begin
               tim[q+1]:=tim[i+1];//запоминаем i+1-й элемент
               pos[q+1]:=pos[i+1];
               tim[i+1]:=tim[i];//сдвигаем на 1 вверх
               pos[i+1]:=pos[i];
               tim[i]:=tim[q+1];//меняем на большее значение
               pos[i]:=pos[q+1];
            end;
         end;
         tim[q+1]:='';//убираем ненужные элементы
         pos[q+1]:='';
         //----- меняем список на полностью обратный порядок -------------------
         for i:=q downto 1 do pos[q+i]:=pos[i];
         for i:=1 to q do pos[i]:=pos[q+q+1-i];
         for i:=1 to q do pos[q+i]:='';
         //----- переименовываем из промежуточного в отсортированный список ----
         for i:=nm to nm+q-1 do
         begin
            //----- создаём новый номер и имя файла ----------------------------
            num1:=IntToStr(i);
            while(Length(num1)<StrToInt(Edit5.Text))do num1:='0'+num1;//добавляем к номеру ведущие ноли
            if(CheckBox3.Checked=True)then Name1:=Edit1.Text+' '+num1+Mask;//имя нового файла с пробелом
            if(CheckBox3.Checked=False)then Name1:=Edit1.Text+num1+Mask;//имя нового файла без пробела
            if(FileExists(Put+pos[i-nm+1])=False)then Memo1.Lines.Add('Файл '+pos[i-nm+1]+' не найден');
            if(FileExists(Put+pos[i-nm+1])=True)then
            begin
               AssignFile(F,Put+pos[i-nm+1]);
               Rename(F,Put+Name1);
            end;
         end;
         Memo1.Lines.Add('Список отсортирован по времени создания в порядке убывания');
      end;

могу весь рабочий исходник скинуть.

[northener]

Вообще-то у всех наследников TStrings есть свойство Objects, в котором можно хранить всё что угодно.

[artemavd]

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

1. добавлять не только дату, но и имя файла

datetimetostr(... ) + '|' +Memo1.Lines[i];

2. сравнивать не весь текст, а только часть содержащую дату

 strtodate( copy(list[sortfinish], 1, ???);

А можно ли этот код доработать так, чтобы сортировка выполнялась не только по дате создания, но и по времени?
Ведь в за одну дату могут быть несколько файлов создано, но в разное время и время создания тоже влияет на сортировку.

[evg_m]

А можно ли этот код доработать так, чтобы сортировка выполнялась не только по дате создания, но и по времени?

DateTimeToStr(GetFiileDateTime(

здесь время у нас УЖЕ есть.
осталось его учесть при сортировке.

CompareValue(StrToDateTIME

[artemavd]

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

здесь время у нас УЖЕ есть.
осталось его учесть при сортировке.

CompareValue(StrToDateTIME

Как? Через Copy опять?
Сейчас у меня эта функция выглядит так:

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

Я пробовал добавить и время вот так:

function CompareDates(List: TStringList; SortStart,SortFinish: Integer): Integer;
var
  s,f: string;
begin
  s:=Copy(List[SortStart],1,10);
  f:=Copy(List[SortFinish],1,10);
  Result:=CompareValue(StrToDate(Copy(f,12,19)),StrToDate(Copy(s,12,19)));
end;

Но, это не работает, т.к. выдает ошибку:

"" is not a valid date.

[evg_m]

откуда в строке длины 10
f:=copy(...., 1, 10);
возьмется 12-й символ
copy(f, 12, ...);

[artemavd]

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

откуда в строке длины 10
f:=copy(...., 1, 10);
возьмется 12-й символ
copy(f, 12, ...);

В смысле откуда?
Ну, дату же создания файла беру, там получается строка в которой 19 символов, где дата и время разделены пробелом (11-ый символ)