[Bars1992]

щас подредактирую

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var
s,g:string;
begin
s:='<count>3</count>';
g:=copy(s,pos('<count>',s)+length('<count>'),pos('</count>',s)-pos('<count>',s)-length('<count>'));
showmessage(g);
s:='<info0title>Заголовок0</info0title>';
g:=copy(s,pos('<info0title>',s)+length('<info0title>'),pos('</info0title>',s)-pos('<info0title>',s)-length('<info0title>'));
showmessage(g);
end;