Фильтр писанины

[sarsen]

Код работы с терминалом

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
S:string;
begin
  ComPort1.ReadStr(S, Count);
  Memo1.Text := Memo1.Text + S;
end;

Как начать выводить сообщение в Memo1.Text пока в S не появится слово OK и всё, что после OK начинать вывод ?

[AnryKZKZ]

Как начать выводить сообщение в Memo1.Text пока в S не появится слово OK и всё, что после OK начинать вывод ?

Не совсем понятно - когда должен идти вывод сообщения?

[sarsen]

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

Не совсем понятно - когда должен идти вывод сообщения?

в терминал в Memo1.Text летит сообщение с терминала, берутся данные с S и отправляются в Memo1.Text но туда летит весь текст, например мне надо отфильтровать сообщение полученное в Memo1.Text тоесть не выводить его пока не встретится с S Слово OK, вот допустим сообщение ( пошла муха на базар и купила OK самовар) После ОК слово сомовар вот ещё в Memo1.Text и вывести, как бы ждать на S слово OK и после него вывести что написанно до пока опять не прилетит OK тоесть после сомовар опять OK закончили вывод.

[AnryKZKZ]

Тогда алгоритм будет такой (если я правильно понял рассуждения):
Берешь строку S, полученную с терминала, вычисляешь ее длину, и в ней ищешь нужную тебе комбинацию с помощью команды pos. Команда возвращает тебе позицию, откуда начинается указанная строка. Далее командой copy копируешь все, начиная со следующего символа и до конца строки во временную строку и вставляешь ее в Memo1.text.

[sarsen]

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

Тогда алгоритм будет такой (если я правильно понял рассуждения):
Берешь строку S, полученную с терминала, вычисляешь ее длину, и в ней ищешь нужную тебе комбинацию с помощью команды pos. Команда возвращает тебе позицию, откуда начинается указанная строка. Далее командой copy копируешь все, начиная со следующего символа и до конца строки во временную строку и вставляешь ее в Memo1.text.

Ну да есть же pos спасибо за подсказку, буду ковырять.