Поиск строки реализовал так
Код:
var
c:Integer
begin
c:=pos('Find text',Memo.text);
if c<>0 then
begin
showmessage('Строка найдена');
end else
begin
showmessage('Строка не найдена');
end;
Admin: Пользуемся тегами!
А вот как реализовать поиск целого куска текста и сверить с оригинальным куском ?
И как загрузить кусок оригинального текста в переменную ?