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

Вниз

ValueListEditor   Найти похожие ветки 

← →
Adios ©   (2007-08-17 11:14) [0]

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

---

← →
palva ©   (2007-08-17 11:25) [1]

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

---

← →
Lacmus ©   (2007-08-17 11:47) [2]



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;



---

← →
Adios ©   (2007-08-17 12:32) [3]

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

---

← →
b z   (2007-08-17 12:54) [4]

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

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

---

← →
Lacmus ©   (2007-08-17 13:13) [5]

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

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

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

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

---

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

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

Наверх

Память: 0.47 MB
Время: 0.024 c