ANTICHAT - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Цитата:

Сообщение от 090808

PHP код:


		
			
procedure TForm4.Button2Click(Sender: TObject);

var StrPage, ssylka:string;

    Data:TstringList;

begin

 idhttp1.HandleRedirects:=true;

 StrPage:=idhttp1.Get('http://ya.ru);

 StrPage:=idhttp1.Post(ssylka, Data);

Memo2.Lines.Text := StrPage;

 Data.Free;

Как допустим получить в label1 то что находится в скобках <title> НУЖНО ЧТОБ ЭТОТ ТЕКСТ ВЫВЕЛО В MEMO1</title>

PHP код:


		
			
function fWSCut(wData, wStart, wEnd: string):string;

var

wOutData, wDelete: string;

begin

 wOutData := StrPos(PChar(wData), PChar(wStart));

 Delete(wOutData, 1, Length(wStart));

 wDelete := StrPos(PChar(wOutData), PChar(wEnd));

 Delete(wData, 1, Length(wData)-Length(wDelete));

 Delete(wOutData, Length(wOutData) - Length(wDelete) + 1, Length(wDelete));

 result := wOutData;

end;

Пример:

Цитата:

Memo2.Lines.Text := fWSCut(StrPage, '<title>', '</title>');