[pylsar]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

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]

Код:

1 2 3 4 5 6 7

try   <b>SRList.Assign(ComboBox1.Items);</b>   SRList.CustomSort(CompareDates);   ComboBox1.Items.Assign(SRList); finally   SRList.Free end;

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

[pylsar]

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

Код:

1 2 3 4

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

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