Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.03.22;
Скачать: CL | DM;

Вниз

Сортировка в ComboBox   Найти похожие ветки 

 
Кос   (2012-06-23 15:44) [0]

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

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.


 
AV ©   (2012-06-23 17:49) [1]

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);


 
Inovet ©   (2012-06-23 18:03) [2]

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

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



Страницы: 1 вся ветка

Текущий архив: 2013.03.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.056 c
2-1335103508
Gedimen
2012-04-22 18:05
2013.03.22
Коряво работает свой компоннет на основе TEdit


6-1266224883
keymaster
2010-02-15 12:08
2013.03.22
Трабл с IDHTTP


15-1344894739
Германн
2012-08-14 01:52
2013.03.22
OpenOffice


15-1352147405
Юрий
2012-11-06 00:30
2013.03.22
С днем рождения ! 6 ноября 2012 вторник


15-1352827685
Artem
2012-11-13 21:28
2013.03.22
Можно вопрос про графы?