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

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

ValueListEditor [D7, XP]

Adios ©   (2007-08-17 11:14:00) 

Сталкнулся с проблемой сортировки значений, сортировку надо организовать по ключам и по значениям, если можно то объясните поподробней.
Заранее благодарен.

---

Lacmus   (2007-08-17 13:13:00) [1]

>b z   (17.08.07 12:54) [4]

>все сохраняете
Этот код написан сегодня, хотя может быть что-то похожее уже было.

>(прикольно узнать скока накодили уже) или нет? :)

Судя по названию проекта это 35-й, какие-то решения действительно сохраняю (вопросы повторяются).

---

b z   (2007-08-17 12:54:00) [2]

> Lacmus ©   (17.08.07 11:47) [2]

все сохраняете (прикольно узнать скока накодили уже) или нет? :)

---

Adios   (2007-08-17 12:32:00) [3]

Lacmus спасибо огромное!

---

Lacmus   (2007-08-17 11:47:00) [4]



function SortByKey(List: TStringList; Index1, Index2: Integer): Integer;
begin
 with List do
   Result := CompareText(Names[Index1], Names[Index2])
end;

function SortByValue(List: TStringList; Index1, Index2: Integer): Integer;
begin
 with List do
   Result := CompareText(ValueFromIndex[Index1], ValueFromIndex[Index2])
end;

procedure TForm39.Button1Click(Sender: TObject);
begin
 TValueListStrings(ValueListEditor1.Strings).CustomSort(SortByKey)
end;

procedure TForm39.Button2Click(Sender: TObject);
begin
 TValueListStrings(ValueListEditor1.Strings).CustomSort(SortByValue)
end;



---

palva   (2007-08-17 11:25:00) [5]

> сортировку надо организовать по ключам и по значениям
Смысл непонятен. Уточните у того, кто вам сказал, что это "надо".

---

Наверх