Парсинг пару вопросов

[nethunterok]

Есть данные такого типа
<!-- message -->
<div id="num_произвольные числа">
ТЕКСТ КОТОРЫЙ МНЕ НУЖЕН
</div>
<!-- / message -->

Их очень много . Мне нужно только самое последнее совпадение.
И это произвольное число не должно иметь значение оно везде разное
Поэтому мне надо именно последнее совпадение
Помогите прошу )

[Lesha]

http://jqbook.narod.ru/delphi/preg.htm
вперед и с песней -> Регулярные выражения

[fezilk25]

не проверял, делфи под рукой нет

var
	bpos,endpos:integer;
	str:string;
begin	
	endpos:=pos('<div id="num_',text);
	while endpos<>0 do
	begin
		bpos:=posEx('">',text,endpos+13);
		endpos:=posEx('<div id="num_',text,bpos+2);		
	end;
	if bpos<>0 then
	begin
		endpos:=posEx('</div>',text,bpos+2);
		str:=copy(text,bpos+2,endpos-bpos-2);
	end else
		ShowMessage('Ничего не найдено');
end;