Форум: "Основная";
Текущий архив: 2003.08.07;
Скачать: [xml.tar.bz2];

Вниз

Сортировка TStringList в обратном порядке   Найти похожие ветки 

← →
alois   (2003-07-24 18:22) [0]

Мастера!!! Помогите, please, отсортировать TStringList в обратном порядке.

---

← →
VMcL   (2003-07-24 18:28) [1]

TStringList.CustomSort

---

← →
alois   (2003-07-25 18:17) [2]

Я знаю, что CustomSort. А как пользовательскую функцию написать, не знаю.

---

← →
VMcL   (2003-07-25 18:30) [3]

function StringListReverseCompareStrings(List: TStringList; Index1, Index2: Integer): Integer;
begin
Result := -List.CompareStrings(
List.FList^[Index1].FString,
List.FList^[Index2].FString);
end;

---

← →
VMcL   (2003-07-25 18:41) [4]

Не, ошибся. Так используются недоступные поля и методы. Вот так:

function StringListReverseCompareStrings(List: TStringList; Index1, Index2: Integer): Integer;
begin
if List.CaseSensitive then
Result := -AnsiCompareStr(List[Index1], List[Index2])
else
Result := -AnsiCompareText(List[Index1], List[Index2]);
end;

---

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

Форум: "Основная";
Текущий архив: 2003.08.07;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c