MODERN
Участник
- Сообщения
- 756
- Реакции
- 130
Код:
procedure TForm1.loginbtnClick(Sender: TObject);
var
temp:string;
users:tstringlist;
i:integer;
userlist:tstringlist;
userid,username,fullline:string;
begin
userlist:=tstringlist.Create;
userlist.Sorted:=true;
userlist.Duplicates:=dupignore;
users:=tstringlist.Create;
users.Sorted:=true;
users.Duplicates:=dupignore;
idlist.Clear;
statusbar1.Panels[0].text:='Loading usersID list, wait...';
try
temp:=http.Get('https://servahoc.ru/members/');
parseall('https://servahoc.ru/members/',temp,'',users);
for i:=0 to users.count -1 do
begin
temp:=users[i];
userid:=parsestr('profile/',temp,'/',[]);
username:=parsestr('rel="get_user">',temp,'<',[]);
fullline:=userid+':'+username;
if pos('>(Мужской)<',temp)>0 then
fullline:=fullline+'(!)';
idlist.Lines.Add(fullline);
end;
finally
users.free;
userlist.free;
end;
statusbar1.Panels[0].text:=format('List of %s',[inttostr(idlist.Lines.count)]);
end;