Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Сортировать список файлов, Мучаюсь уже второй день... 
:(
    Опции темы
Гость_Гость
Дата 19.8.2005, 00:15 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Привет всем!
Вот есть у меня список(TStringList) файлов и расположены они там в неправильном порадке:
Цитата

F:\Application\...\History\1 Август 2005 г. (1).txt
F:\Application\...\History\1 Август 2005 г. (2).txt
F:\Application\...\History\10 Август 2005 г. (1).txt
F:\Application\...\History\11 Август 2005 г. (1).txt
F:\Application\...\History\2 Август 2005 г. (1).txt
F:\Application\...\History\3 Август 2005 г. (1).txt
F:\Application\...\History\3 Август 2005 г. (2).txt
F:\Application\...\History\3 Август 2005 г. (3).txt
F:\Application\...\History\4 Август 2005 г. (1).txt
F:\Application\...\History\5 Август 2005 г. (1).txt
F:\Application\...\History\5 Август 2005 г. (2).txt
F:\Application\...\History\7 Август 2005 г. (1).txt
F:\Application\...\History\8 Август 2005 г. (1).txt
F:\Application\...\History\9 Август 2005 г. (1).txt
Мне хотелось бы сделать чтобы это выглядело вот так:
Цитата

F:\Application\...\History\1 Август 2005 г. (1).txt
F:\Application\...\History\1 Август 2005 г. (2).txt
F:\Application\...\History\2 Август 2005 г. (1).txt
F:\Application\...\History\3 Август 2005 г. (1).txt
F:\Application\...\History\3 Август 2005 г. (2).txt
F:\Application\...\History\3 Август 2005 г. (3).txt
F:\Application\...\History\4 Август 2005 г. (1).txt
F:\Application\...\History\5 Август 2005 г. (1).txt
F:\Application\...\History\5 Август 2005 г. (2).txt
F:\Application\...\History\7 Август 2005 г. (1).txt
F:\Application\...\History\8 Август 2005 г. (1).txt
F:\Application\...\History\9 Август 2005 г. (1).txt
F:\Application\...\History\10 Август 2005 г. (1).txt
F:\Application\...\History\11 Август 2005 г. (1).txt
...
Но как так сделать. Поикал в нете, но к сожелению ничего полезного не нашол.
Как можно отсортировать этот список(TStringList).
Заранее спасибо за ответ!

Это сообщение отредактировал(а) Girder - 19.8.2005, 01:16
  Вверх
Петрович
Дата 19.8.2005, 04:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1000
Регистрация: 2.12.2003
Где: Москва

Репутация: 25
Всего: 55
Используй метод CustomSort, передав ему самодельную процедуру сравнения, которая сравнивает твои строки с учетом их формата.


--------------------
Все знать невозможно, но хочется
PM ICQ   Вверх
Гость_Гость
Дата 19.8.2005, 07:03 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
А не мог бы ты помоч написать эту функцию сравнения, а то я седня пробовал у меня ничего не получилось.
  Вверх
Pakshin A. S.
Дата 19.8.2005, 08:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 21
Всего: 61
А если взять скрытый ListBox (Visible = false) и пихать туды все значения. При этом выставить автоматическую сортировку... По-моему наиболее безболезненный вариант, только помяти немного больше потребует, но зато самому ничего не нужно писать...

А для сравнения двух строк должно прокатить:
Код

s1:='F:\Application\...\History\1 Август 2005 г. (1).txt';
s2:='F:\Application\...\History\2 Август 2005 г. (1).txt';
if s1 < s2
 then
  ShowMessage('Реально работает');

Диалог вроде должен всегда показываться.. Отсюда использовать можно любую сортировку обычных массивов...
PM   Вверх
Гость_Гость
Дата 19.8.2005, 09:02 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Я что-то не понял это что так сложно отсортировать список файлов?
Подскажите плиз!
  Вверх
~FoX~
Дата 19.8.2005, 09:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68
Pakshin A. S.
Попробуй отсортить:
Цитата

F:\Application\...\History\1 Август 2005 г. (1).txt
F:\Application\...\History\1 Август 2005 г. (2).txt
F:\Application\...\History\2 Август 2005 г. (1).txt
F:\Application\...\History\3 Август 2005 г. (1).txt
F:\Application\...\History\10 Август 2005 г. (1).txt
F:\Application\...\History\11 Август 2005 г. (1).txt

И получишь:
Цитата

F:\Application\...\History\1 Август 2005 г. (1).txt
F:\Application\...\History\1 Август 2005 г. (2).txt
F:\Application\...\History\10 Август 2005 г. (1).txt <----Bug
F:\Application\...\History\11 Август 2005 г. (1).txt <----Bug
F:\Application\...\History\2 Август 2005 г. (1).txt
F:\Application\...\History\3 Август 2005 г. (1).txt

Тут только CustomSort.


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
Pakshin A. S.
Дата 19.8.2005, 09:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 21
Всего: 61
~FoX~ и то верно... щас тоже заметил...

тогда от моего поста остается только исползование ListBox'а взамен TStringList
PM   Вверх
Гость_Гость
Дата 19.8.2005, 09:56 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Ну если использовать CustomSort то какую функцию её надо передовать.
Я пробовал делать но уменя ничего не получилось smile
  Вверх
Pakshin A. S.
Дата 19.8.2005, 09:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 21
Всего: 61
Пример на Memo... вместо него поставить StringList и все должно получиться...
Код

var
 i, j :integer;
 buf: string;
begin
 for i:=0 to Memo1.Lines.Count-1 do
  for j:=0 to Memo1.Lines.Count-2 do
   if (CompareText(Memo1.Lines[j], Memo1.Lines[j+1]) = 1) or (Length(Memo1.Lines[j]) > Length(Memo1.Lines[j+1]))
       (*Проверяем на последовательность по таблице кодов*)  (*По длине*)
    then
     begin
      buf:=Memo1.Lines[j];
      Memo1.Lines[j]:=Memo1.Lines[j+1];
      Memo1.Lines[j+1]:=buf;
     end;
end;

Сотрируем вышеуказанный пример в соответсвии с задачей... Впринцепе должно хватить...
PM   Вверх
Гость_Гость
Дата 19.8.2005, 10:46 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Большое спасибо!
  Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0671 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.