Сортировка по ключам , По алфавиту,по возрастающей цене

[The_Beginner]

[leo]

Цитата The_Beginner @ 08.06.14, 10:01

for i := len + 1 to l_name do name := name + '        ';

Что это за ...?!
При включенной опции проверки диапазонов {R+} это приведет к ошибке исполнения, а при выключенной {R-} к затиранию глобальных переменных, расположенных после name и tovr, т.е. beg, fin, Spis, и как следствие - к последующей ошибке при попытке их чтения\записи.
Нужно либо заменить на name:=name+' ', либо вообще убрать это дополнение пробелами, т.к. оно тут никчему.

Цитата The_Beginner @ 08.06.14, 10:01

ListSortUni(spis,CompFuncName);

Spis:=nil, а реальный список содержится в beg

[Федосеев Павел]

Меню Option - Compiler - должны стоять Х в поле Debugging (Debug Information, Local Symbols)
в русском переводе
Меню Инструм - Компилятор - Отладка

Если код не используется, например процедура ListSort ни разу не вызывается, то возникнет такое сообщение.
---------------------------
Присоединяюсь к мнению leo.

Сообщение отредактировано: Федосеев Павел - 09.06.14, 06:25

[The_Beginner]

Цитата leo @ 09.06.14, 06:16

Цитата The_Beginner @ 08.06.14, 10:01

for i := len + 1 to l_name do name := name + '        ';

Что это за ...?!
При включенной опции проверки диапазонов {R+} это приведет к ошибке исполнения, а при выключенной {R-} к затиранию глобальных переменных, расположенных после name и tovr, т.е. beg, fin, Spis, и как следствие - к последующей ошибке при попытке их чтения\записи.
Нужно либо заменить на name:=name+' ', либо вообще убрать это дополнение пробелами, т.к. оно тут никчему.

Цитата The_Beginner @ 08.06.14, 10:01

ListSortUni(spis,CompFuncName);

Spis:=nil, а реальный список содержится в beg

{+R},{-R} у меня не включены,я еще на всякий случай удалил {-I} и {+I} в процедуры ReadFile от греха подальше.

Я еще в другой теме выкладывал старую версию программы(с граф-интерфейсом),там пробелы наоборот надо было убрать и всё искало и удаляло.

я выравнивал пробелы, везде в ноль строку ввода ставил например в Query, QueryName.

Я сделал как вы сказали,к сожалению Скул Едишн,местами работает некорректно.

[Федосеев Павел]

Приаттач, то что получилось в итоге.

[Федосеев Павел]

Я подредактировал твою прогу из поста 19 от 08 июля 2014.
Основные изменения
1. То что сказал leo - убрал дополнения пробелами, удалил лишние переменные и заменил spis на beg
2. Изменил LoadListFromFile. Формат файла базы - как я описывал ранее.
3. Имя файла в DOS не превышает 8 символов - заменил название файла
4. Убрал странный тип str_name - и тут стало видно, что для имени товара в списке используется string, а для шаблона поиска - str_name. Прикреплённый файлsklad.pas.zip (2,23 Кбайт, скачиваний: 118)

Сообщение отредактировано: Федосеев Павел - 09.06.14, 10:22

[The_Beginner]

Спасибо большое!Вы очень выручили!
Извините,что надоедал тут своими кодами непонятными,но приходится иногда с чего-то начинать.