И так начнем кинем на форму три edit'a и button(standart) и IdHTTP1(indy clients) первый edit назовем s второй b третий e разместим. в тело программы после {$R *.dfm} напишем следующее : function pars(a,b,s:string):string; var t:string; begin t:=copy(s,pos(a,s)+length(a),length(s)); result:=copy(t,1,pos(b,t)-1); end;
теперь кликнем по button два раза и напишем следующий код : var s:string; begin s:=idhttp1.Get('http://ksoft.at.ua'); ///получаем тело страницы showmessage(pars(b.Text,e.Text,s); /////показываем что заключено в тегах
|