[pylsar]

Код:

function CompareDates(List: TStringList; Index1, Index2: Integer): Integer;
 var
   d1, d2: TDateTime;
 begin
   d1 := StrToDate(List[Index1]);
   d2 := StrToDate(List[Index2]);
   if d1 < d2 then
     Result := -1
   else if d1 > d2 then Result := 1
   else
     Result := 0;
 end;

procedure TForm2.FormShow(Sender: TObject);
var
  SRList :Tstringlist;
  SR: TSearchRec;
  FindRes Integer;
begin
   SRList:= TStringList.Create;
  FindRes := FindFirst('С:\файлы\*.*', faAnyFile, SR);
  while FindRes = 0 do
    begin
     if (SR.Name <> '.') and (SR.Name <> '..') then
         SRList.Add(SR.Name);
         FindRes := FindNext(SR);
      end;
  FindClose(SR);
  try
    SRList.Assign(ComboBox1.Items);
    SRList.CustomSort(CompareDates);
    ComboBox1.Items.Assign(SRList);
  finally
    SRList.Free
  end;

Помогите решить задачку, накидал вот код сортировки, но в ComboBox ничего не отображается.
Может более простой способ существует сортировки по дате создания файлов ?

[lmikle]

Код:

  try
    SRList.Assign(ComboBox1.Items);
    SRList.CustomSort(CompareDates);
    ComboBox1.Items.Assign(SRList);
  finally
    SRList.Free
  end;

Выделенная строчка не настораживает?

[pylsar]

настораживает... взял код с delhiworld http://delphiworld.narod.ru/base/sl_custom_sort.html - а там сортировка уже имеющегося списка в listboxe. А тут я накидал ерунду - функция сортировки даты, а в свой список добавляю названия файлов. Для начала решил попробовать взять время изменения файла и вывести его в listbox вот таким способом

Код:

if (SR.Name <> '.') and (SR.Name <> '..') then
         ListBox1.Items.Add(IntToStr(SR.Time));
         FindRes := FindNext(SR);
end;

получаю следующее значение
1081901072 в каком формате время написано так и не понял
на самом деле файл изменён 28 марта 2012 г., 16:00:30