поиск Memo2 из Memo1 Delphi

[Bondul]

Ребята!!! подскажити мне пожалуйста как в Memo найти такой текст как написан у меня ниже и вопще реальноли это?

Дапустим это Memo1

=================================== =================================== ==============================
==$================================ =================================== ===========================$==
==$===========$$$$$$$$$$$========== =================================== ===========================$==
==$==============$$$$============$$ $$==$$$$=========================== ===========================$==
==$==============$$$$=========$$$$= =$$$$==$$$$======================== ===========================$==
==$==============$$$$=========$$$$= =$$$$==$$$$======================== ===========================$==
==$==============$$$$=========$$$$= =$$$$==$$$$======================== ===========================$==
==$==============$$$$=========$$$$= =$$$$==$$$$======================== ===========================$==
==$================================ =================================== ===========================$==
==$================================ =================================== ===========================$==
==$================================ =================================== ===========================$==

Пробовал так но ничего не получается!

if Pos(Memo2.Lines.Text ,Memo1.Lines.Text) <> 0 then
label1.Caption:='T';

А это дапустим будет Memo2 значение которого нужно найти в Memo1

==============
==$$$$$$$$$$===
=====$$$$=====
=====$$$$=====
=====$$$$=====
=====$$$$=====
=====$$$$=====
==============

[Stilet]

Нет. Так не реально. Нельзя штатными средствами выполнять блочный поиск, это не Мультиэдит тебе. Тут придется изошряться придумывая свою программу.

[VIK_aka_TOR]

Pos(Str2, Str1);

где str2 то что вы ищите, str1 то где вы ищите...
в эти переменные типа string загоняете через цикл каждуй строку из мемо1 и мемо2.
и если значения будут одинаковы и отличны от нуля во всех строках то нашли)))
результат этой функции - номер символа с которого начинается вхождение...
хотя тут пару нюансов с ====================== так как их много... а она будет выводить вам первое попавшееся...
я бы начал от этого играться)))... дерзайте)

[Bondul]

Сообщение от Stilet

это не Мультиэдит тебе.

А значит через Мультиэдит получится найти да?

[Аватар]

Multi-Edit - старый досовский редактор текстов, в котором текст можно было блочно выделять. Вроде и для винды есть, но сомневаюсь, что поможет это вам. Разве что удастся встроить вместо Memo в программу. Я бы и не пытался, а занялся бы парсингом содержимого Memo. Сложно, но что делать

[Stilet]

Bondul

Обьясни зачем тебе это, может есть способ попроще, если карты раскроешь.
P.S. Да Multi-Edit это умел.

[Bondul]

Сообщение от Stilet

Обьясни зачем тебе это, может есть способ попроще, если карты раскроешь.
P.S. Да Multi-Edit это умел.

Stilet, какта лазил по сайтам по исходникаи и нашол такой интересный исходник каторый преображает картинку в токое состояние а вот и он

[Аватар]

Алгоритм парсинга напрашивается следующий: засунуть в двумерный массив типа Char (или Byte, что удобней еще походу выяснится) символы из Memo1. Строк в массиве столько, сколько строк в мемо. Поскольку два вида символов, то возможно оптимальней каждые 8 символов строки засунуть в одну колонку массива (бит=1 для $ и 0 для =). Соответсвенно в меньший массив Memo2. И перебором, начиная с 1-ой строки массива 2 искать совпадение в массиве 1. Нашли совпадение - проверять на совпадение следующие строки. С массивами возможно и перемудрил, то же самое и напрямую можно сделать со строками из мемо