С поиском более менее разобрался:
| Код |
var
...
S,S1: string;
begin
...
S := StringReplace(Memo1.Lines.Text, #13#10, ' ', [rfReplaceAll]);
S1 := StringReplace(Memo1.Lines.Text, #13#10, ' ', [rfReplaceAll]);
if (Pos('exsci:name='+NameConnect+',dev='+dev_BSC+';', S) > 0) and (Pos('ORDERED', S1) > 0) then
Application.MessageBox ('Подключено', 'Результат', mb_Ok)
else Application.MessageBox ('Не подключено', 'Результат', mb_Ok);
...
end;
|
Мне нужно вывести сообщение об удачном подключении при наличии обеих строк в Memo1. Проблема в том, что поиск для обеих строк осуществляется по всему Memo1. А мне надо, чтобы для S1 поиск начинался со строки, следующей за S.. Просто слово ORDERED встречается и до появления строки S.. |