Форум: "Основная";
Текущий архив: 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.008 c