VPF::сортировка в memo - Форум программистов

Фрося

Дата 12.1.2006, 13:46 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Здрасвуйте
у меня в компоненте Memo строки вида "Номер + : + Номер"

выглядит так

Код



4:12
4:13
4:14
4:11
4:10
3:16
3:15
3:21
.....

числа в строках могут быть разные, но вид строки всегда: ( Num + Separator + Num ).

Мне нужно чтобы этот список сортировался в порядке возрастания. smile

Snowy

Дата 12.1.2006, 13:57 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Код


var
  sl: TStringList;
begin
  sl:=TStringList.Create;
  sl.Assign(Memo1.Lines);
  sl.Sort;
  Memo1.Lines.Assign(sl);
  sl.Free;
end;

Демо

Дата 12.1.2006, 18:21 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50

Snowy

Не получится. Придется использовать TStringList.CustomSort

--------------------

Snowy

Дата 12.1.2006, 19:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Цитата(Демо @ 12.1.2006, 18:21

)

Не получится. Придется использовать TStringList.CustomSort

Не получится, если строки разной длины - будет сортировать согласно алфавита.
Если одной длины, как в примере - то все нормально.

delphixxx

Дата 18.1.2006, 18:02 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 18.1.2006

Репутация: нет
Всего: нет

Snowy
Демо

Спасибо за ответы, но я совсем забыла, строки дейсвительно могут быть разной длинны, просто в примере я это не учитывала.

теперь такой пример:

Код

на всякий случай хочу сказать первая цифра до ':' только одна тоесть от 1 до 9 а после знака ':' максимум три минимум одна .

smile

Alexeis

Дата 18.1.2006, 18:35 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Код


function mysort(List: TStringList; Index1, Index2: Integer): Integer;
var
  i1, i2 : integer;
  s1, s2 : ansistring;
Begin
  s1 := List.Strings[Index1];
  s2 := List.Strings[Index2];
  if s1[1] > s2[1]
  then
    result := 1
  else
    if s1[1] < s2[1]
    then
      result := -1
    else
      Begin
        delete(s1,1,2);
        delete(s2,1,2);
        i1 := strtoint(s1);
        i2 := strtoint(s2);
        if i1 > i2
        then
          result := 1
        else
         if i1 < i2
         then
           result := -1
         else
           result := 0;
      end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var    
  sl: TStringList;    
begin    
  sl:=TStringList.Create;    
  sl.Assign(Memo1.Lines);    
  sl.CustomSort(mysort);
  Memo1.Lines.Assign(sl);
  sl.Free;
end;

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »