Код:
procedure TForm2.Button1Click(Sender: TObject);
var
s,g,find:string;
i:integer;
begin
s:='<td rowspan="2" style="width:67mm; text-align:center; font-weight:bold; line-height:4mm;">Российская федерация<br>';
g:=copy(s,pos('<td rowspan="2" style="width:67mm; text-align:center; font-weight:bold; line-height:4mm;">',s)+length('<td rowspan="2" style="width:67mm; text-align:center; font-weight:bold; line-height:4mm;">'),pos('<br>',s)-pos('<td rowspan="2" style="width:67mm; text-align:center; font-weight:bold; line-height:4mm;">',s)-length('<td rowspan="2" style="width:67mm; text-align:center; font-weight:bold; line-height:4mm;">'));
showmessage(g);
end;
end
Таким образом я получаю нужный мне результат. Но вот не могу понять, т.к у меня очень много документов, то вместо "Российская федерация" у меня может стоять любая страна,страна, как сделать так что бы вывести именно текст находящийся между тегами?