Парсер ссылок в выдаче google

[Человек_Борща]

Memo1.Lines.Delete(индекс строки);

[Fahman]

Сообщение от Человек_Борща

Memo1.Lines.Delete(индекс строки);

Нет. Нужно каждую строку проверить если в ней строка "webcache.googleusercontent.com " если есть, то полностью удалить её.

[Человек_Борща]

Что, циклы писать не умеете? for downto do и вперед.

[Розетко]

PHP код:

var
  i: Integer;
begin
  for i := 0 to RichEdit1.Lines.Count-1 do begin
    if Pos('webcache.googleusercontent.com', RichEdit1.Lines.Strings[i]) <> 0 then
      RichEdit1.Lines.Delete(i);
  end;
end; 


[BDA]

Розетко, циклы по удалению строк принято писать от последней строки к первой.

[Аватар]

Принято не то слово, нужно, иначе глюк обеспечен

[Fahman]

Я сделал. Может кому будет интересно:

smemo1.Clear;
Source:= IdHTTP1.Get('http://www.google.com/search?q='+sedit1.text);
while Pos('/url?q=', Source) <> 0 do begin
Delete(Source, 1, Pos('/url?q=', Source) + Length('/url?q=') - 1);
smemo1.lines.Add(Copy(Source, 1, Pos('&amp;', Source) - 1));
begin
 Find:='webcache';
For i:=sMemo1.Lines.Count-1 downto 0 do
  If pos(Find, sMemo1.Lines[i])>0 Then
    sMemo1.Lines.Delete(i);
  end;
end;
end;