17.04.2013, 16:04
|
Активный
|
|
Регистрация: 01.08.2011
Адрес: ЧЕбоксары
Сообщения: 248
Версия Delphi: XE
Репутация: -615
|
|
Цитата:
Сообщение от Bargest
Есть у меня знакомая гадалка. Очень хорошо гадает, особенно на кофейной гуще. Говоришь ей: "У меня программа работает, а потом не работает. Почему?" - и она угадывает, в чем проблема. К сожалению, она заболела. А я, жалкий программист, без какой-либо информации не умею давать такие точные ответы. Так что ничем не могу помочь...
|
вот код, что в нем не так??
Код:
procedure TForm1.Timer2Timer(Sender: TObject);
var m,s1,gg,ssyl,log,pass,s,a,b,c:string;
StrPage:string;
qwe:TStringList; i,i1:integer; str:string; n:integer;
begin
listbox2.Selected[0]:=true;
a:=listbox2.items[listbox2.itemIndex];
listbox1.Selected[0]:=true;
b:=listbox1.items[listbox1.itemIndex];
s1:= a;
i1:=Pos(':',s1);
log:= Copy(s1,1,i1-1);
pass:= Copy(s1,i1+1,20);
Randomize;
n:=random (2);
s := '';
for i:=1 to 2 do
s := s + chr ( random( ord('z') - ord('a') + 1) + ord('a'));
gg := s;
try
memo2.text:= idhttp1.Get('http://www.odnoklassniki.ru/dk?st.cmd=searchResult&st.query='+gg+'&st.gender='+edit8.text+'&st.fromAge='+edit3.text+'&st.tillAge='+edit4.text+'&st.country=10414533690&st.onSite=on&st.mode=Users&st.grmode=Groups');
except
end;
str:=memo2.text;
n:=pos('<a class="o" href="/profile/',str)+length('<a class="o" href="/profile/');
m:= copy(str,n,posex('?',str,n)-n);
if pos ('title',m)>0 then
else listbox1.items.add (m);
qwe.Free; end;
__________________
Ставь спасибо за спасибо!
Помог?Ставь спасибо!Увидел пост? Поставь спасибо!
|