Хм... Вот не вижу проблемы в упор:
1. Загружаем в StrList (или Memo, или ListBox ...) список файлов (без расширений)
2.а (если строки разной длины) определяем строку наименьшей длины (Length, Memory, If_else)
2.б Проверяем, не является ли эта строка искомой (Copy, If_else), если нет - используем её длину в качестве начального значения
2.в Если все строки имеют одинаковую длину, используем её в качестве начального значения
3. Повторяем пока (длина > 1) и (не найдена общая часть)
* Уменьшаем длину на 1
* Проверяем на общую часть, если нашли - конец цикла
4. Voila! Если длина = 0, то такой подстроки (общей части) нет, если > 0, то мы нашли искомую "общую часть".

И ни одного "потустороннего" (с) элемента (тем более - от Ампера).

Зачем, не пойму...
Проще все:
а) Полный цикл конечно по всему списку делать надо, без этого трудно, согласен
б) В качестве начального значения искомого "общего префикса" проще всего взять первую сроку из списка целиком
в) Если нет совпадения - уменьшаем длину префикса на 1 (предыдущие равенства не нарушаются ведь), пока совпадение не наступит, и переходим к следующему имени из списка
г) Если префикс "занулился" - значит не повезло
д) Если список закончился - значит повезло, и префикс найден

В общем, чего-то мне кажется, что всякие разборки с длинами - от лукавого, способ запудрить себе мозги, не более того

А чел просил совсем не это, а вот это



Просто определить вхождение текста и отсечь его. И зачем тогда вот это:



P.S. После более тщательного прочтения рекомендаций Galkov'a, понял, что он прав, но слишком муторно и медленно получается (а если файлов тысячи, ох и надолго уснет это безобразие)

nesco, тысячи *.avi на диске ПК не уместятся, надо стойку городить Гораздо быстрее глазом определить общую часть.

Galkov, а затем, чтобы не делать ненужной работы: если есть общая подстрока, то она заведомо не длиннее самой короткой из сравниваемых строк. Я, конечно, туманно написал, но что-то я сегодня уже с трудом формулирую мысли (после "налогов" мозга за мозгу...)
nesvo, а ты предложи свой вариант, чтобы "это безобразие" надолго не засыпало

Ага, сделать одну ненужную работу, чтобы потом не делать другую ненужную работу

Предлагай свой вариант, посмотрим, чья работа "ненужней"
code_8518.txt

Не буду, ибо понял сейчас, что перестарался.

Ну вот....
На самом интересном месте

Редактировалось 4 раз(а), последний 2021-05-21 08:08:58

А я как бы и не ставил себе в цель создать схему, реализующую некое техзадание.
Которого, кстати говоря, и не было...
Моя схема, это есть просто конкретизация мыслей и идей, обсуждаемых с коллегой iarspider-ом
Потому-что схема, в отличии от Великого и Могучего - не допускает неоднозначности прочтения.

Обращаю внимание: мы на форуме НЕ решаем задачи за других, мы излагаем мысли в виде схемы.
Это беседуем мы так

Редактировалось 4 раз(а), последний 2021-05-21 08:08:58

Ну дык конкретные вопросы, по конкретной схеме - гораздо адекватнее для настоящего форума, чем "скажите как сделать"

Потому-что 99% именно таких вопросов связаны с общим пониманием как, и в какой последовательности, циркулируют данные и события в любой схеме на HiAsm.

Galkov, Вы позволите это изречение добавить в свою подпись. Соблюдение авторских прав гарантирую

Опять с вопросом:
Как сделать в двух ListBox одинаковые действия? Схемку сделал, но явно ерунда получается:
code_2149.txt
Подскажите плиз, если не трудно.