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

Вниз

Сортировка 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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.018 c
3-20410
SoM
2003-07-16 16:06
2003.08.07
Rave


1-20500
Alex-21
2003-07-23 21:25
2003.08.07
?????? & c_1252.nls


3-20424
Nevermind
2003-07-16 17:24
2003.08.07
IXMLNode


6-20645
Ivl
2003-06-01 18:09
2003.08.07
Сканер IP адресов


14-20712
REA
2003-07-23 14:11
2003.08.07
Крамер