memo поиск и перенос строки

[andrey poki]

Доброго времение суток, ребята подскажите такую пустековую штуку, но что там сам додуматься не могу, если такое уже было, извини сразу, но я ненашел... что мне нужно.

есть мемо1 в нем текст, мне нужно найти в нем все слова error и скопировать все строки где есть слова error в мемо2.

я все не могу условие правильно подобрать.

вот что я надумал, но что то не получается.

procedure TForm1.Button4Click(Sender: TObject);
begin

for c:=0 to i do
if memo1.Lines[c]='error' then
begin
memo2.Lines.Add(memo1.Lines[c]);
end;
c:=c+1;
end;

Заранее благодарю!

[Andrei]

В вашем случае условие будет выполнятся только если строка состоит из одного слова error. Вхождение подстроки в строку можно определить при помощи функции Pos.

Правильно будет такое условие:

if Pos(memo1.Lines[c],'error')>0 then ..

.

а еще правильнее:

if Pos(LowerCase(memo1.Lines[c]),'error')>0 then ...

тогда условие будет выполняться даже если слово error написано в разных регистрах.

[Kotofff]

Вот держи в дополнение к сказанному :

[andrey poki]

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

Вот держи в дополнение к сказанному :

огромное спасибо, очень грамотно получилось!

[andrey poki]

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

В вашем случае условие будет выполнятся только если строка состоит из одного слова error. Вхождение подстроки в строку можно определить при помощи функции Pos.

Правильно будет такое условие:

if Pos(memo1.Lines[c],'error')>0 then ..

.

а еще правильнее:

if Pos(LowerCase(memo1.Lines[c]),'error')>0 then ...

тогда условие будет выполняться даже если слово error написано в разных регистрах.

Спасибо, Вам!