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

Цитата:

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

JnK я в дельфи начинающий, можно чуть подробнее?

Где, что не понятно?

PHP код:


		
			
 var 

  tmp,str:string;  // переменная str = строка

begin 

  str:=idhttp1.Get('http://vk.com/');  

{ считываем страницу и сохраняем её в строке (str) }

  tmp:=copy(str,pos('<title>',str)+7,pos('</title>',str)); 

{в строку Tmp копируется текст между <title> и </title> }

//  copy  - скопировать часть строки

// !! delete - удалить часть строки. Работает с VAR переменными.

//  pos - найти строку (символ) в подстроке

end;

PHP код:


		
			
 var 

  str:Tstringlist;  // Список (аналог визуальный ListBox)

  tmp:string; // Строка (временная переменная)

  i:integer;  // число (счетчик)

begin 

  str:=Tstringlist.Create(); // создаем список (выделяем память)

  str.Text:=idhttp1.Get('http://vk.com/');  // копируем в список текст страницы

  for i:=0 to str.count-1 do  // цикл проходит по всему списку

  begin 

    tmp:=str.Strings[i] ;  // присваиваем строку из списка во временную, т.к. нельзя работать на прямую коммандой Delete

    delete(tmp,1,pos('img',tmp));  // удаляем с 1 симвода, до слова Img (если нет такого слова) то ничего не делает.

    //  copy,delete,pos  - читай выше.

  end; 

  str.Free; // освобождаем список (память)

end;