ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
01.06.2010, 13:46
|
|
Участник форума
Регистрация: 23.08.2009
Сообщений: 133
Провел на форуме:
1952858
Репутация:
127
|
|
Подскажите как при окончании progressbar1 закрывалась form1 и открывалась form2 ?
процедура на таймере
|
|
|
01.06.2010, 14:03
|
|
Познающий
Регистрация: 10.08.2009
Сообщений: 74
Провел на форуме:
1538500
Репутация:
69
|
|
Сообщение от -PsychonauT-
Подскажите как при окончании progressbar1 закрывалась form1 и открывалась form2 ?
процедура на таймере
Код:
if ProgressBar1.Position=ProgressBar1.Max then
begin
Form2.show;
Form1.hide;
end;
Последний раз редактировалось Seven[up]; 01.06.2010 в 14:15..
|
|
|
|
01.06.2010, 14:13
|
|
Постоянный
Регистрация: 02.07.2008
Сообщений: 472
Провел на форуме:
3728999
Репутация:
444
|
|
Seven[up] если использовать Form1.Close; то закроется весь проект, лучше использовать Form1.hide;
|
|
|
|
Линейный-односвязный список |
01.06.2010, 16:45
|
|
Участник форума
Регистрация: 12.11.2009
Сообщений: 160
Провел на форуме:
568182
Репутация:
11
|
|
Линейный-односвязный список
Ребят, нужна помощь в создании токого списка, и добавление 1 эл после заданного.
Данно
type
tpel:^element;
element:record
num:inteher;
p:tpel;
end;
var
first(ук на 1 эл списка) ,n(ук на эл перед которым доб новый),f(ук на эл после которого доб новый эл),q (ук на новый эл):tpel;
Num-это информ поле, любое число (1,2,3,4,5...)
|
|
|
|
01.06.2010, 18:08
|
|
Познающий
Регистрация: 27.11.2008
Сообщений: 60
Провел на форуме:
163634
Репутация:
41
|
|
ПРивет, всем!
короче у меня есть прога, в ней две задачи, и есть модуль с помощью которого она работает!
Задача: разбить прогу на две части, т.е. в 1-й проге - 1-я задача, во 2-й соответственно вторая, ну и с модулем там что нить намутить)
плиз в асю - 282435
НУЖНО СРОЧНО, т.е. СЕГОДНЯ
|
|
|
|
02.06.2010, 14:44
|
|
Участник форума
Регистрация: 05.06.2009
Сообщений: 225
Провел на форуме:
2793173
Репутация:
297
|
|
Как спарсить все id с страницы поиска вк?
делаю гет запрос, выводится спиок. Могу один спарсить ид а остальные хз как..
|
|
|
|
02.06.2010, 14:57
|
|
Участник форума
Регистрация: 23.07.2009
Сообщений: 261
Провел на форуме:
4435957
Репутация:
539
|
|
Циклом перебирать всю страницу, не?
|
|
|
|
02.06.2010, 15:36
|
|
Участник форума
Регистрация: 05.06.2009
Сообщений: 225
Провел на форуме:
2793173
Репутация:
297
|
|
Сообщение от HakaR
Циклом перебирать всю страницу, не?
да. можешь дать пример?
|
|
|
|
02.06.2010, 15:46
|
|
Участник форума
Регистрация: 23.07.2009
Сообщений: 261
Провел на форуме:
4435957
Репутация:
539
|
|
for i := 0 to ResultPage.Count -1 do
begin
//Тут if Pos()
//Copy, Delete
//Записываешь результат, допустим в memo
end;
 |
|
|
|
02.06.2010, 16:08
|
|
Познающий
Регистрация: 25.10.2009
Сообщений: 97
Провел на форуме:
604635
Репутация:
15
|
|
Как спарсить все id с страницы поиска вк?
делаю гет запрос, выводится спиок. Могу один спарсить ид а остальные хз как..
Качаешь мой модуль парсера :
http://paste.org/pastebin/view/19254
Тебе там нужна функция MultiParseString
Вызываешь так :
Код:
Var sa : TStringArray;
_html : String;
Begin
//Тут получешь html страницы поиска и заосишь в переменную _html
sa := MultiParseString('addToFriends(', ', this.parentNode);', _html, false);
//Теперь в массиве sa будут в каждой ячейке ID пользователя в формате String.
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
![Аватар для Seven[up]](/avatars/avatar93867.jpg?2178731){kind=avatar}
![Отправить сообщение для Seven[up] с помощью ICQ](fusion/misc/im_icq.gif)
Похожие темы
Комбинированный вид