>>1295604 (OP)
А перевести (программно) кучу ифов в нормальую структуру не вариант?

>>1295610
Что ты имеешь ввиду? Я уже, программно написал эти миллион if-then'oв в блокнот.
Разверни поподробнее мысль о структурировании пожалуйста

толсто

>>1295707
> препод похвалит
Нет, я для личных нужд. Я уже лет 10 как не студент ))

>>1295740
> Нет, я для личных нужд. Я уже лет 10 как не студент ))
Надеюсь, не программист?

>>1295707
>Но твой говно-код будет крайне долго выполняться.
Да ну, там инструкций максимум на десяток миллионов наберется. Это меньше секунды на современных процах.

>>1295865
Какая разница кто я.
Нет, я не программист. Базовыми навыками конечно владею. Чисто для себя иногда приложения создаю всякие

Короче. Попробовал сегодня в отдельную dll компильнуть свою громадную функцию, разумеется чтобы в дальнейшем вызывать через обращение из ехе к dll. Peхультат - нихуя не компилируется! Слишком большой код.
А когда превращаю в комментарий большую часть кода -{ } , примерно с 20000 чного if по миллионный, то компилируется нормально и ввзов происходит хорошо. Функция разумеется хорошо возвращает значения.
Может думаю, попотеть eще по дня и разбить всё это дело на пару десятков мелких dll ? Сложность чисто в правильном копипасте кусков кода. Но тогда время будет теряться на поиск нужной dll (библиотеке так сказать)

Когда кода немного ( около 30000 строк), то это всё дело и внутри ехе умещается компилируется и работает. Ехе сразу толстеет разумеется, со стандартных 350 КБ до 16 МБ. Но вроде пашет всё нормально.
Может на другом каком-нибудь ЯП попробовать это всё дело реализовать? На С++ к примеру. Но если чисто dll собрать на другом языке, то ладно. Весь код остальной хочу в Delphi писать

>>1295951
Насколько помню, там где-то в настройках проекта выбирались размеры, ну там small code, huge code. Может в эту сторону копать?
Почему ты не хочешь сделать это в базе данных, кстати, ну там sqlite или firebird (он есть portable версия). Там уже сразу механизмы все есть быстрого поиска (в индексе). И система получится расширяемой.

>>1295604 (OP)
>If A = 'Кошка' Then
>Begin
>B := 'Вода';
>Exit;
Cделать БД, хоть и самописную не варик?

>>1295955
>>1295956
Да, скорее всего придется через БД реализовывать всё это

>>1295956
Я даже делал следующим образом. Выписал все значения которыми буду оперировать в один последовательный текстовый файл , формата:
AAAAAABBBBBBCCCCCCDDDDDDEE....
Т.е из расчета , что каждое последующее 6 значное "слово" , является возвращаемым значением предыдущего.
Т.е вызываю самописную функцию next(s: string): string; c параметром next('SSSSSS'), а она возвращает значение 'TTTTTT'. Поскольку длина всех слов фиксированная =(6 знаков), я считываю из файла последовательности из шести символов, типо:
while copy(stroka,i*6, 6) <> 'искомое' do i++. типо того короче
Полученное решение работает, но когда искомая шестерка символов находится в файле ближе к середине и глубже, то это всё дико тормозит. Примерно по 0.3 сек тратится на поиск возвращаемого значения

>>1295993
Бля, это ты тот анон, который номера машин собирать собрался?

>>1296019
Бляха муха )
Я знал что кто-то узнает меня . Да, это я. Доси ебусь с этой системой бро, не поверишь

>>1295993
>while copy(stroka,i*6, 6)
Нахуя? При старте программы считываешь данные из файла и сохраняешь их в хешмап. Ну а потом используешь его (B := HashMap[A]).

>>1296033
Ну разумеется. Я ведь если напрямую с файлом буду работать - это вообще тормоза будут сплошные.
Я загружаю данную строку из файла в длинную строковую переменную. И уже в ней шебуршу. Но даже работая с переменной, я получаю казус с тормозами когда в глубь строки захожу. Хрен его знает, мне кажется надо сам алгоритм поиска по строке менять. Я ведь через i:=i+6 , и шагаю по строке таким образом. Наверное из-за этого.

>>1296019
Этому поехавшему еше в том треде указали на проеб в архитектуре и что бы юзал бд, нет же, создал новый трхед с еше большей наркоманией.

>>1295951
>Может думаю, попотеть eще по дня и разбить всё это дело на пару десятков мелких dll ?
Это самый правильный путь, анон.

>>1295604 (OP)
Всё. Я разобрался! Код работает молниеносно.
Коротко.
Причина низкой скорости, была следующаяя. Я сканировал свою громадную 11 МБайтную строку шагом в 6 символов , циклом do while,
Чепез функцию Сopy(big_stroka,i+6, 6) <> 'iskomoe' и прибавлял 6 к i каждую итерацию.
А надо было просто с другой стороны к проблеме подойти тупо X_word:= pos('iskomoe', Big_stroka).
Всем спасибо за советы.

>>1296987
>X_word:= pos('iskomoe', Big_stroka)
А не может случится так, что 'iskomoe' будет начинаться в предыдущей шестерке? Или у тебя там заведомо разные форматы данных? В любом случае, я бы добавил какие-то разделители.

>>1296019
Тут вон про номера авто пишут.
Как ты будешь обрабатывать номера с меньшим кол-вом букв? Номера прицепов/спецтехники/мотоциклов?

Есть целый пласт алгоритмов "поиск подстроки", твоя ебола Сopy(big_stroka,i+6, 6) <> 'iskomoe' как раз худший случай, тем более как там будет Copy выполняться (ну т.е. выделение памяти, копирование, освобождение памяти) сотни тысяч раз - тоже вопрос интересный.

>>1297522
> А не может случится так, что 'iskomoe' будет начинаться в предыдущей шестерке?
Да, Бывает. В моей задаче, иногда бывает лишь 2 лишь неприятных момента.
1 бывало раньше, до вчерашнего дня, до того как наконец алгоритм сменил. Когда на обработку поступил самый последний номер последнего тиража типо Х999... (но это условно, массив в норме является перемешанным, по этому последний в моём случае кажется С912УА) Ну ты понял короче.
И дальше массив заканчивался и шагнуть шестёркой некуда, из-за чего я весь цикл тянул за собой лишний if который менял i c ляма на 0.
> Или у тебя там заведомо разные форматы данных? В любом случае, я бы добавил какие-то разделители.
Нет, разделити увеличат размер файла (примерно на 1/7) и немного утяжелят логику поиска , хоть и на какие-то 0.0056 , но на фоне миллионных многопроходных поисков, мне это выльется в целые секунды.
> Как ты будешь обрабатывать номера с меньшим кол-вом букв? Номера прицепов/спецтехники/мотоциклов?
К сожалению, работу с другими шаблонами номеров я не реализовал. И камеру учил считывать лишь стандартный автомобильный номер , форматов: 77rus и 177rus
Это типо экспериментальный проект.
> Есть целый пласт алгоритмов "поиск подстроки", твоя ебола Сopy(big_stroka,i+6, 6) <> 'iskomoe' как раз худший случай
А вот как раз эти операторы работают гораздо лучше самописных способов. Типо обращений к строке как к массиву и пр. Я так изначально и делал, думал что через массивный подход поиск будет быстрее. А хот хрен там. Воспользовавшись для поиска обычным pos(a,b)=0? ,я охуел с результатов если честно.
Фишка вся в том, что большая часть всех этих встроенных стандартных функций (для строк, для математики, для звука, EoF для работы с тфайлами и пр), целиком и полностью написанны со всевозможными ассемблерными вставками в самых тяжёлых участках кода. Оттуда видимо и прирост в производительности.
Вчера утром уже приступил к разработке полного soft'a окна, меню, кнопки, настройки и пр.
Ещё вроде бы собрал до кучи все свои pas'ки с наработками для работы с полученными фото. Выбрал необходимые и самые свежие. Собрал и компильнул более менее человекоподобное приложение, которое по крайней мере само находит активные usb-камеры на портах активирует их без лишнего дрочева.

>>1297559
>я охуел с результатов если честно.
Сделал бы балансированное дерево - ещё бы больше охуел.

Какая у тебя там задача? Собирать базу из номеров? Причем без привязки к фотографии/ссылке, просто тупо номера, что видно на картинках?

На какой версии Delphi ты делаешь? Я на Delphi 7 (китайской сборки Delphi7 Lite) делаю ПО, только если под WinXP надо чего замутить (на заводы всякие и старые рабочие станции). А так, жопа, конечно, ни антиалиасинг, ни масштабирование, ни юникод.

>>1297592
На 7 тоже работаю.
Вот уже некий прототип сегодня собираю

>>1297635
(Все номера из теста - выдуманные, случайные)
Рисовал на бумаге для тестирования

бляшизоидкактызаебал

>>1298002
Ok, надо поставить. Спасибо.
Я кстати лет 5 наверное писал вообще без подсветки на этом своём гремучем Delphi 7. Тупо черным шрифтом была. Лишь недавно что-то залез в настройки и выставил подсветку синим цветом для управляющих структур. Begin and
Спасибо я попробую lite версию. У меня кажется даже есть где-то это Delphi lite.
Inc_a, inc_b, inc_c, inc_d - это функции инкремента для каждой цифры.
А 001 А А
А В С D
Поскольку строка номера должен быть полностью рандомна, я писал функции под каждый разряд. И порядок символьного ряда разумеется в каждой функции свой индивидуальный.
Тут ещё вот какое дело анончик. Я подумал и решил, что неплохо бы было взять эту систему случайных номеров на вооружение для хранения большого количества рандомных файлов. У меня есть целый столетний HDD с фотками всякими, gif ками и видюхами. Чем
Какие-то drybxf4bjuex8gij.jpg , лучше пусть будет номер.jpg кратко и лаконично. Сегодня по шурику пакетный renamer напишу. Модули у меня основные уже есть. Запас коротких имён у меня огромный 1,7 миллиарда знаков. Внукам хватит лол

>>1298085
But its colorful so cute! You are blue motherfucker!

>>1298788
No, Im not, sory dude

>>1298788
>>1298850
Shut-up, douchebags, and don't ever try to speak english again!

>>1295604 (OP)
> шо если всунуть в DLL очень большую программу в почти 1000000 строк?
комп взорвется

>>1298788
dld уоu еvеrуthlng sаid?

>>1295612
Ифы не нужны, запользуй хешмапы и твоя программа станет быстрой и шелковистой

а ещё может сожрать немного оперативки

>>1300409
уже все, спасибо. Закончил наконец, вчера "бету" запускал тестировал.
Реализовал через поиск в длинной стороке. Программа слегка подвисает лишь когда запускается. Подвисает на 8 сек и это связано с анализом списков номеров, ранее сделанных фото. (т.е с анализом имён файлов изображений, имена которых в виде номера). И одновременно наполняется строка all_numbers , по мере прошерчивания рабочих директив. Далее, если и нужно будет пробить номер из архивных директорий, компьютер уже не весит, он шерстит в самой строке. И если номера нет, а присвоить нужно (ну к примеру новый фото-файл с номером добавить в базу), то добавляем в конец строки и новый номер, помимо добавления смого jpg 'а в базу разумеется.

>>1300421
Правда я накопипастил 58200 дубликатов файлов номеров, для обкатки и тестирования этого алгоритма, поэтому и 8 сек занимало. В пустых папках молниеносно как правило

а что конкретно оп делает?
правильно понимаю что у него куча картинок машин в названии которых автомобильный номер и ему нужно просто их искать?

>>1300430
Правильно

>>1300430
>а что конкретно оп делает?
Не хочет изучать БД

>>1300431
тогда твою задачу можно решить небольшим скриптом на bash или powershell если ты в винде

>>1300447
вернее, даже скрипта не нужно
в винде для папки, в которой лежит куча твоих фоток, включаешь индексацию поиска, далее задаешь поисковый паттерн прямо в проводнике
и все
будет оче быстро искать

>>1300449
>>1300447
> будет оче быстро искать
Надо ведь чтобы автоматически искалось. Поиск это промежуточный этап всего лишь, в работе программы. У меня там кода одного исходного кил на 300, на несколько модулей делил. Ручками я и в проводник могу вбить запрос )).
Задача была создать цикл автоматики. В принципе получилось, создал.
> bash или powershell если ты в вин
Ок, спасибо. Возьму на вооружение. Но их ведь вряд-ли можно интегрировать куда-либо?

>>1300452
>У меня там кода одного исходного кил на 300
На ИФ-ах, аналогично ОП-посту?

А

Помогу опу-дебилу сагать собственный тред.

>>1302321
Уже всё работает. Разобрался. Прога безотказная получилась как калашников.

>>1302332
>как калашников
рельс вдоль простреливает?