Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.09.2010, 05:20   #31
artemavd
Старожил
 
Аватар для artemavd
 
Регистрация: 05.06.2008
Сообщений: 4,210
По умолчанию

Че-то я ниче не пойму что происходит с кодом в момент отрисовки. Взял щас 10 сканов. У них нумерация идет от 3480900 до 3480910. В папке они, судя по написанным на них номерам, находятся в порядке убывания, т.е. от 3480910 до 3480900. В StringGrid создал последовательность согласно этим номерам. Запускаю отрисовку и что я вижу. Что первый файл с отрисованным номером 3480910, второй (который 3480909) с отрисованным номером 3480907, третий (который с номером 3480908) с отрисованным номером 3480906 и т.д. Где косяк? Я не пойму вообще. Ведь в папке сканы правильно остканены и лежат в правильном порядке. Неужели по какому-то неизвестному для меня принципу берутся файлы и грузятся в мою переменную b? По какому? По размеру файла скана чтоли? Немного раньше все работало. Может ли быть причина в имени, которое я задал при сканировании сканам. Имя задал Batch. Сканы имеют нумерацию Batch1, Batch2, Batch3 и т.д. Код тот же самый что и в посте №24.
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
artemavd вне форума Ответить с цитированием
Старый 28.09.2010, 06:54   #32
Sibedir
Тот ещё
Старожил
 
Аватар для Sibedir
 
Регистрация: 14.11.2007
Сообщений: 2,242
По умолчанию

Сисема не сортирут файл. Это тотал или експлорер тебе их в сортированном виде выдает. А FindNext находит их в том порядке, в котором они на хард записаны. Если файл был изменен или переименован, то порядок их следования на винте (в заголовке) может измениться.

Последний раз редактировалось Sibedir; 28.09.2010 в 06:56.
Sibedir вне форума Ответить с цитированием
Старый 28.09.2010, 07:13   #33
artemavd
Старожил
 
Аватар для artemavd
 
Регистрация: 05.06.2008
Сообщений: 4,210
По умолчанию

Да нет, они не были переименованы. Они были просто отсканены в папку с заданным именем да и все. Что мне сделать-то?
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
artemavd вне форума Ответить с цитированием
Старый 28.09.2010, 08:17   #34
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Цитата:
Что мне сделать-то?
вариант 1. Предварительно прочитать все имена в коллекцию. Например, в TStringList
потом отсортировать (там есть метод TStringList.Sort)
и пользоваться уже список. Это наиболее простой с точки зрения программирования (и надёжности) способ. Правда, есть и недостатки..

Вариант 2. Отрисованный номер брать из имени файла (если это возможно, конечно)...
Serge_Bliznykov вне форума Ответить с цитированием
Старый 28.09.2010, 08:22   #35
artemavd
Старожил
 
Аватар для artemavd
 
Регистрация: 05.06.2008
Сообщений: 4,210
По умолчанию

Отрисованный номер на то и отрисованный, что наносится в программе моей. Как я его возьму из имени файла-то если он еще не нарисован?
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
artemavd вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
отрисовка updown edik Компоненты Delphi 0 27.12.2009 12:39
Присвоение текста в цикле AvaMight Общие вопросы Delphi 2 16.06.2009 01:23
отрисовка локации Juffin Общие вопросы Delphi 4 21.04.2009 14:26
Отрисовка компонентов Dr.Badnezz Компоненты Delphi 1 04.01.2009 16:50
Отрисовка CheckListBox. NikLik Компоненты Delphi 0 21.09.2008 21:58