memo парсинг строк

[mitiay]

Подскажите как осуществить поиск в мемо и удалить строки в которых нет .php в конце строки

[Serge_Bliznykov]

попробуйте так:

for i:=Memo1.Lines.Count-1 downto 0 do begin
  s := Trim(Memo1.Lines[i]);
  if AnsiUpperCase(Copy(s, Length(s)-3,4))<>'.PHP' then Memo1.Lines.Delete(i);
end;