| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Сортировка в ComboBox

Кос ©   (2012-06-23 15:44:00) 

функция сортировки по дате

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

FindRes := FindFirst('F:\1\*.*', faAnyFile, SR);
 while FindRes = 0 do
 begin
   if (SR.Name <> '.') and (SR.Name <> '..') then
     begin
       ListBox1.Items.Add(DateTimeToStr(FileDateToDateTime(SR.time))+'  '+SR.Name);
       ComboBox1.Items.Add(SR.Name);
       ListBox2.Items.Add(SR.Name);
     end;
       FindRes := FindNext(SR);
 end;
 FindClose(SR);  //Закрываем поиск

sl:=TStringList.Create;
try
  sl.Assign(listbox1.Items);
  sl.CustomSort(CompareDates);
  listbox1.Items.Assign(sl);
finally
  sl.Free
end;
В ListBox1 складываю для наглядности файлы со временем их создания и названием и сортирую их по дате, примерно такой вид 01.01.12 00:11:22 12312455 (дата_время_название файла)
В ComboBox1 и ListBox2 просто названия.
Вопрос как мне теперь отсортированные названия файлов (из ListBox1) в ComboBox1 отправить, поскольку дальше я по названию файла загружаю их в StringGrid.

---

Inovet   (2012-06-23 18:03:00) [1]

> [1] AV ©   (23.06.12 17:49)

У ТС дата текстом. Но он не позаботился о японцах, американцах и других.

---

AV   (2012-06-23 17:49:00) [2]

var
 sl: TStringList;
begin
 ComboBox1.Items.Add('aaaa');
 ComboBox1.Items.Add('cccc');
 ComboBox1.Items.Add('dddd');
 ComboBox1.Items.Add('bbbb');
 sl := TStringList.Create;
 sl.Assign(ComboBox1.Items);
 sl.Sort;
 ComboBox1.Clear;
 ComboBox1.Items.Assign(sl);
 FreeAndNil(sl);

---

Наверх