Показать сообщение отдельно

  #2  
Старый 09.09.2009, 18:07
M_script_
Постоянный
Регистрация: 29.10.2008
Сообщений: 306
Провел на форуме:
1819761

Репутация: 180
Отправить сообщение для M_script_ с помощью ICQ
По умолчанию

Делфи не знаю, попытался переделать с си++ билдера

stroka:AnsiString;
user:AnsiString;
stroka := idhttp.get();

while(stroka.Pos("<a href=/users/"))
begin
stroka.Delete(1, stroka.Pos("<a href=/users/"));
stroka.Delete(1, stroka.Pos(">"));
memo1.clear();
memo1.lines.add(stroka.SubString(1, stroka.Pos("<") - 1));
end;

в мемо1 получишь список всех юзеров

Последний раз редактировалось M_script_; 09.09.2009 в 18:38..