Поиск в memo и действие

[Chaiker]

Не могу сообразить как сделать чтобы прога искала в memo строку такую же как в Edit. То есть у меня в Edit1 написан текст, я нажимаю на кнопку(уже запрограммировал) и этот текст добавляется в memo путем Memo1.Lines.Add(Edit1.Text). Но мне нужно чтобы прога проверяла есть ли в memo уже такой же и выполняла действие

[evg_m]

я нажимаю на кнопку(уже запрограммировал)

Но мне нужно

чтобы прога проверяла (if) есть ли (pos) в memo (memo.text) уже такой же и (then) выполняла действие

[dmitriegorovih]

Да за просто вот так

procedure TForm1.Button1Click(Sender: TObject);
begin
if memo1.Lines.IndexOf(edit1.Text)<>(-1) then begin
//>>>>>Что то тут есть надо чёто делать<<<<<<
end else begin
//>>>Ага у нас тут нечего нет тогда добавим новую строку<<Б
memo1.Lines.Add(edit1.Text);
end;
end;

[Chaiker]

Нужно чтобы она сравнивала строки, а не весь текст, т.е. в edit стоит строка, если такая уже есть в memo, то выполняет действие

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

Да за просто вот так

procedure TForm1.Button1Click(Sender: TObject);
begin
if memo1.Lines.IndexOf(edit1.Text)<>(-1) then begin
//>>>>>Что то тут есть надо чёто делать<<<<<<
end else begin
//>>>Ага у нас тут нечего нет тогда добавим новую строку<<Б
memo1.Lines.Add(edit1.Text);
end;
end;

все спасибо понял, мой предыдущий ответ я написал т.к. не видел что ты уже ответил