Тема: Memo pos
Показать сообщение отдельно
  #6  
Старый 24.04.2018, 20:37
Reba Reba вне форума
Прохожий
 
Регистрация: 05.04.2018
Сообщения: 14
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

If pos(posi,Memo1.Text)<>0 Then//если искомое слово присутствует в строке, то...

begin
memo2.Lines.Add(s);
memo2.Lines.Text:= StringReplace(memo2.Lines.Text,'#id ','',[]);
id:= memo2.Text;
memo1.Clear;
memo2.Clear;
if pos(id,memo3.Text)<>0 then
begin
memo4.Lines.Add('Даные верные Клиент Проводит операции');
Ответить с цитированием