Несколько вхождений

[MyIE]

Работаю я с html кодом.
Нужно пропарсить страницу.
Необходимо заполнить массив значений (15 значений).
Строки, которые необходимо найти:

<input type="checkbox" name="post[]" value="118" />

Нужен мне тут "118"
Вот таких строчек (с разным значением) всего на странице 15.
функция Pos дает номер символа только первого вхождения

Pos('<input type="checkbox" name="post[]" value="', megstr)

Пробовал в цикле, что-то типа:

procedure TForm1.FormShow(Sender: TObject); // пробная прога, поэтому засунул все в ФормШоу(сразу после компиляции)
var
  i, plus: integer;
  megstr: string;
begin
  plus:= 14000; // приблизительно отсюда начинаются нужные мне значения
  Memo1.Lines.LoadFromFile('file.txt'); // загружаю весь html в memo1
  str := Memo1.Text;
  for i := 0 to 15 do // мне нужно 15 элементов
  begin
  megstr:= copy(str, plus, 2400); // приблизительно через такое кол-во символов нужные мне элементы повторяются
  if Pos('<input type="checkbox" name="post[]" value="', megstr)>0 then
    Memo2.Lines.Add(Copy(megstr, Pos('<input type="checkbox" name="post[]" value="', megstr) + Length('<input type="checkbox" name="post[]" value="'), 3) );
  plus:= plus + 2400;
  end;
end;

Но вот возникла проблема: т.к. генерируется код в зависимости от исходных данных, то расстояние (2400 выбрано сейчас) может быть разным, а следовательно начинаются сдвиги и могут пропарсится не все значения.

[Stilet]

Во-первых: В Делфи постарше есть функция РosEx
Во-вторых: Никто тебе не мешает после того как нашел первое вхождение удалить из строки все до этого вхождения и его вместе, и опять искать через Pos.

[MyIE]

Спасибо за ответ, остановился на PosEx

[Пепел Феникса]

Виталий, все таки PosEx(если у ТС нет её в Д, то скинуть могу) лучше, Delete скорость уронит...
http://programmersforum.ru/showpost....6&postcount=17
вон там пример парсера ссылок на музыку в контакте(из поиска)

[MyIE]

Спс, код уже не нужен, я только алгоритм спрашивал) Функцию я уже сам реализовал под свои нужны подстроенную ^^