Как реализовать поиск в строке Memo из списка слов
Написал функцию поиска слова из списка
function scan(s:string):integer;
begin
result:= pos('слово1',s) or pos('слово2',s) or pos('слово 3',s);
end;
Реализация.
if scan(memo1.Lines[0]) <> 1 then
begin
{Записать найденное слово, например, в массив}
mas[i]:=
end;
P.S. заведомо известно, что в каждой строке встретится только одно из искомых слов
В итоге должно получиться: искомые слова: delphi, text, программирование
s:='вывести слово delphi';
mas[i] будет равен delphi
pos('слово1',s) or pos('слово2',s) or pos('слово 3',s);
?Pos
возвращает ближайший к началу строки индех подстроки (1-based) или 0, если подстрока не найдена.