[MORPEH]

есть memo.

В нем есть текст.
Я пишу слово: собака. Должно показатся сообщение, типа Появилось слово собака.
Пишу еще раз: собака. Должно появится сообщение, что есть слово собака. Но при этом один раз.

То есть, тако текст в Memo:

собака
собака

Появилось Message c собакой.

Добавляю еще текст в memo

Должно снова показатся Message и только 1 раз.

Как это сделать?

[friz]

Код:

if pos('псина',memo1.text) then begin showmessage('DOG'); exit; end;

[MORPEH]

Уточнение, а если я на пример не сам ввожу, а текст приходит следующим путем:
Memo1.Lines.Text:=WebBrowser1.OleObject.document.b ody.InnerTEXT;

То как показать только что пришедшее сообщение, но не показывать 20 раз предыдущие.

То есть новое сообщние собака может появится в любой момент.

Спасибо за первую подсказку. Добавил положительный отзыв

[friz]

Код:

var
  Form1: TForm1;
  flag:boolean;
implementation

{$R *.dfm}

procedure TForm1.Memo1Change(Sender: TObject);
begin
if (pos('yo',memo1.Text)>0) and (not flag)then begin showmessage('!'); flag:=not flag; end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  flag:=false;
end;

p.s. код было лень форматировать

[MORPEH]

Показывает постоянно((

[friz]

скинь свой код

[MORPEH]

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

скинь свой код

Отправил в личку ссылку на загрузку