Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=239811&view=findpost&p=2899118 Mon, 23 May 2011 10:10:49 +0000 Сортировка TStringList по убыванию https://forum.sources.ru/index.php?showtopic=239811&view=findpost&p=2899118 Цитата MBo @
Ultraplayer
ЗдОрово соптимизировал

Да уж - хоть бы Exchange(i,j) использовал:
    N:=List.Count-1;
    for i:=0 to N div 2 do List.Exchange(i,N-i);
]]> leo Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=239811&view=findpost&p=2898865 Mon, 23 May 2011 04:32:19 +0000 Сортировка TStringList по убыванию https://forum.sources.ru/index.php?showtopic=239811&view=findpost&p=2898865 Ultraplayer
ЗдОрово соптимизировал :crazy:]]> MBo Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=239811&view=findpost&p=2898864 Mon, 23 May 2011 04:25:12 +0000 Сортировка TStringList по убыванию https://forum.sources.ru/index.php?showtopic=239811&view=findpost&p=2898864 Идея в том, что если мы имеем хотя бы обычную сортировку, то ничто нам не мешает просто повернуть уже отсортированный лист.

    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;
]]> Ultraplayer Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=239811&view=findpost&p=1981798 Mon, 09 Jun 2008 09:06:48 +0000 Сортировка TStringList по убыванию https://forum.sources.ru/index.php?showtopic=239811&view=findpost&p=1981798 Переклинило меня что-то что это вывод уже. :)]]> Felan Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=239811&view=findpost&p=1981565 Mon, 09 Jun 2008 05:06:24 +0000 Сортировка TStringList по убыванию https://forum.sources.ru/index.php?showtopic=239811&view=findpost&p=1981565 Цитата (mopsik @ Вчера, 17:56)
for I := 1 to (CountItem - 1) do

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

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

[/quote]
:no: Сортировка выполняется не этим циклом, а последующим вызовом MyList.Sort.]]> RuSA Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=239811&view=findpost&p=1981559 Mon, 09 Jun 2008 04:42:15 +0000 Сортировка TStringList по убыванию https://forum.sources.ru/index.php?showtopic=239811&view=findpost&p=1981559
Ну в таком случае все гораздо тривиальнее! :) Строку
[quote=mopsik,1212926208,1981206]for I := 1 to (CountItem - 1) do[/quote]
Надо заменить на строку
    for I := (CountItem - 1) downto 1 do[/quote]


ЗЫЖ Кстати, индексы начинаяют с нуля...]]> Felan Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=239811&view=findpost&p=1981290 Sun, 08 Jun 2008 14:27:17 +0000 Сортировка TStringList по убыванию https://forum.sources.ru/index.php?showtopic=239811&view=findpost&p=1981290 Получилось....получилось! :lol: :lol: :lol: :lol: :lol: :lol: :lol: :lol: :lol: :lol: :lol:
Демо спасибо большое]]> mopsik Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=239811&view=findpost&p=1981289 Sun, 08 Jun 2008 14:26:36 +0000 Сортировка TStringList по убыванию https://forum.sources.ru/index.php?showtopic=239811&view=findpost&p=1981289
    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!]]> Демо Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=239811&view=findpost&p=1981286 Sun, 08 Jun 2008 14:19:18 +0000 Сортировка TStringList по убыванию https://forum.sources.ru/index.php?showtopic=239811&view=findpost&p=1981286
    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);
А что неправильно?]]> mopsik Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=239811&view=findpost&p=1981279 Sun, 08 Jun 2008 14:00:00 +0000 Сортировка TStringList по убыванию https://forum.sources.ru/index.php?showtopic=239811&view=findpost&p=1981279 Цитата mopsik @
Incompatible types: regular procedure and method pointer


А ты что, MySort методом класса сделала?]]> Демо Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=239811&view=findpost&p=1981251 Sun, 08 Jun 2008 13:01:46 +0000 Сортировка TStringList по убыванию https://forum.sources.ru/index.php?showtopic=239811&view=findpost&p=1981251
    Incompatible types: regular procedure and method pointer
]]> mopsik Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=239811&view=findpost&p=1981240 Sun, 08 Jun 2008 12:47:14 +0000 Сортировка TStringList по убыванию https://forum.sources.ru/index.php?showtopic=239811&view=findpost&p=1981240 Selya
см. реализацию InternalCompareText. Менее эффективный код в данном случае.]]> Демо Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=239811&view=findpost&p=1981235 Sun, 08 Jun 2008 12:37:37 +0000 Сортировка TStringList по убыванию https://forum.sources.ru/index.php?showtopic=239811&view=findpost&p=1981235
Цитата
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 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=239811&view=findpost&p=1981230 Sun, 08 Jun 2008 12:30:25 +0000 Сортировка TStringList по убыванию https://forum.sources.ru/index.php?showtopic=239811&view=findpost&p=1981230 Цитата mopsik @
а что такое Index1, Index2?


Метод CustomSort позволяет осуществить порьзовательскую сортировку. В функцию для сортировки передаются индексы строк в TStrings (Index1 и Index2), которые нужно сравнить.
Открой справку Delphi.]]> Демо Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=239811&view=findpost&p=1981226 Sun, 08 Jun 2008 12:25:07 +0000 Сортировка TStringList по убыванию https://forum.sources.ru/index.php?showtopic=239811&view=findpost&p=1981226 mopsik Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=239811&view=findpost&p=1981214 Sun, 08 Jun 2008 12:08:17 +0000 Сортировка TStringList по убыванию https://forum.sources.ru/index.php?showtopic=239811&view=findpost&p=1981214
    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);
]]> Демо Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=239811&view=findpost&p=1981206 Sun, 08 Jun 2008 11:56:48 +0000 Сортировка TStringList по убыванию https://forum.sources.ru/index.php?showtopic=239811&view=findpost&p=1981206
    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]]> mopsik Delphi: Общие вопросы