Сортировка TStringList по убыванию , TStringList

Мне надо отсортированить TStringList. Нашла в DRKB3 Вот как:

MyList        := TStringList.Create;
  MyList.Sorted := False;
  try
    begin
      for I := 1 to (CountItem - 1) do
        MyList.Add(GenStrGrid.Rows[I].Strings[ThatCol] + TheSeparator +
          GenStrGrid.Rows[I].Text);
        Mylist.Sort;

Но тут сортирует по возрастанию. А мне оказалось надо по убыванию. Пожскажите пожалуйста. Может есть какой параметр типа Asc, desc

function MySort(List: TStringList; Index1, Index2: Integer): Integer;
begin
  if List[Index1]<List[Index2] then
  begin
    Result := 1;
    Exit;
  end;
  if List[Index1]=List[Index2]
    then Result := 0
    else Result := -1;
end;
 
 
...
Mylist.CustomSort(MySort);

а что такое Index1, Index2?

Цитата mopsik @ 08.06.08, 12:25

а что такое Index1, Index2?

Метод CustomSort позволяет осуществить порьзовательскую сортировку. В функцию для сортировки передаются индексы строк в TStrings (Index1 и Index2), которые нужно сравнить.
Открой справку Delphi.

Метод Sort объекта класса TStringList по умочанию сортирует во возрастанию.

Цитата

Sorts the strings in the list in ascending order.

Если посмотреть как это реализовано:

function StringListCompareStrings(List: TStringList; Index1, Index2: Integer): Integer;
begin
  Result := List.CompareStrings(List.FList^[Index1].FString,
                                List.FList^[Index2].FString);
end;
 
procedure TStringList.Sort;
begin
  CustomSort(StringListCompareStrings);
end;

То можно легко догадаться, что для сортировки по убыванию надо переписать:

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

И уже потом использовать метод CustomSort:

var
  Strs: TStringList;
begin
  Strs := TStringList.Create;
  try
    Strs.Add(...);
    ...
    Strs.CustomSort(StringListCompareStringsDesc);
    ...
  finally
    Strs.Free;
  end;

Сообщение отредактировано: Selya - 08.06.08, 12:42

Selya
см. реализацию InternalCompareText. Менее эффективный код в данном случае.

Товарищи, я делаю, как вы говорите, но у меня на строчке Mylist.CustomSort(mysort)ругается:

Incompatible types: regular procedure and method pointer

Цитата mopsik @ 08.06.08, 13:01

Incompatible types: regular procedure and method pointer

А ты что, MySort методом класса сделала?

unit Unit1;
 
interface
 
uses
  ...;
 
type
  ...
    function MySort(List: TStringList; Index1, Index2: Integer): Integer; stdcall;
 
 
implementation
...
function TForm1.MySort(List: TStringList; Index1, Index2: Integer): Integer;stdcall;
begin
  if List[Index1]<List[Index2] then
  begin
    Result := 1;
    Exit;
  end;
  if List[Index1]=List[Index2]
    then Result := 0
    else Result := -1;
end;
 
procedure TForm1.SortStringGrid(var GenStrGrid: TStringGrid; ThatCol: Integer);
//тут у меня сама процедура создания листа , занесения данных  и ........сортировка
MyList        := TStringList.Create;
  MyList.Sorted := False;
  try
    begin
      for I := 1 to (CountItem - 1) do
        MyList.Add(GenStrGrid.Rows[I].Strings[ThatCol] + TheSeparator +
          GenStrGrid.Rows[I].Text);
Mylist.CustomSort(mysort);

А что неправильно?

type
  TForm1=...
    ...
    ...
  end;
 
[B]function MySort(List: TStringList; Index1, Index2: Integer): Integer;[/B]
 
implementation
 
[B]function MySort(List: TStringList; Index1, Index2: Integer): Integer;[/B]
begin
  if List[Index1]<List[Index2] then
  begin
    Result := 1;
    Exit;
  end;
  if List[Index1]=List[Index2]
    then Result := 0
    else Result := -1;
end;

И никаких stdcall!

Сообщение отредактировано: Демо - 08.06.08, 14:27

Ой, исправила.....исправила!
Получилось....получилось!
Демо спасибо большое

[quote=mopsik,1212926208,1981206]А мне оказалось надо по убыванию.[/quote]

Ну в таком случае все гораздо тривиальнее! Строку
[quote=mopsik,1212926208,1981206]for I := 1 to (CountItem - 1) do[/quote]
Надо заменить на строку

for I := (CountItem - 1) downto 1 do[/quote]

ЗЫЖ Кстати, индексы начинаяют с нуля...

Сообщение отредактировано: Felan - 09.06.08, 04:42

[quote=Felan,1212986535,1981559]Строку
Цитата (mopsik @ Вчера, 17:56)
for I := 1 to (CountItem - 1) do

Надо заменить на строку

for I := (CountItem - 1) downto 1 do[/quote]

[/quote]
Сортировка выполняется не этим циклом, а последующим вызовом MyList.Sort.

Тьфу-ты Прогнал
Переклинило меня что-то что это вывод уже.

На самом деле - всё гораздо проще.
Идея в том, что если мы имеем хотя бы обычную сортировку, то ничто нам не мешает просто повернуть уже отсортированный лист.

procedure ReverseList(var List: TStringList);
var
  TmpList: TStringList;
  I: Integer;
begin
  TmpList := TStringList.Create;
  for I := List.Count -1 DownTo 0 do
    TmpList.Append(List[I]);
  List.Assign(TmpList);
  TmpList.Free;
end;
 
...
procedure TForm1.Button1Click(Sender: TObject);
var
  List: TStringList;
begin
  List := TStringList.Create;
  List.Append('a');
  List.Append('v');
  List.Append('e');
  List.Append('z');
  List.Sort;
  ReverseList(List);
  Memo1.Lines.Assign(List);
  List.Free;
end;