01.06.2010, 13:46
|
|
Участник форума
Регистрация: 23.08.2009
Сообщений: 133
С нами:
8798786
Репутация:
127
|
|
Подскажите как при окончании progressbar1 закрывалась form1 и открывалась form2 ?
процедура на таймере
|
|
|
01.06.2010, 14:03
|
|
Познающий
Регистрация: 10.08.2009
Сообщений: 74
С нами:
8817073
Репутация:
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
С нами:
9399011
Репутация:
444
|
|
Seven[up] если использовать Form1.Close; то закроется весь проект, лучше использовать Form1.hide;
|
|
|
|
Линейный-односвязный список |
01.06.2010, 16:45
|
|
Участник форума
Регистрация: 12.11.2009
Сообщений: 160
С нами:
8681602
Репутация:
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
С нами:
9185881
Репутация:
41
|
|
ПРивет, всем!
короче у меня есть прога, в ней две задачи, и есть модуль с помощью которого она работает!
Задача: разбить прогу на две части, т.е. в 1-й проге - 1-я задача, во 2-й соответственно вторая, ну и с модулем там что нить намутить)
плиз в асю - 282435
НУЖНО СРОЧНО, т.е. СЕГОДНЯ
|
|
|
|
02.06.2010, 14:44
|
|
Участник форума
Регистрация: 05.06.2009
Сообщений: 225
С нами:
8912421
Репутация:
297
|
|
Как спарсить все id с страницы поиска вк?
делаю гет запрос, выводится спиок. Могу один спарсить ид а остальные хз как..
|
|
|
|
02.06.2010, 14:57
|
|
Участник форума
Регистрация: 23.07.2009
Сообщений: 261
С нами:
8843557
Репутация:
539
|
|
Циклом перебирать всю страницу, не?
|
|
|
|
02.06.2010, 15:36
|
|
Участник форума
Регистрация: 05.06.2009
Сообщений: 225
С нами:
8912421
Репутация:
297
|
|
Сообщение от HakaR
Циклом перебирать всю страницу, не?
да. можешь дать пример?
|
|
|
|
02.06.2010, 15:46
|
|
Участник форума
Регистрация: 23.07.2009
Сообщений: 261
С нами:
8843557
Репутация:
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
С нами:
8707843
Репутация:
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.
|
|
|
|
|
 |
|
Предыдущая тема
Следующая тема
|
Здесь присутствуют: 2 (пользователей: 0 , гостей: 2)
|
|
|
|
![Аватар для Seven[up]](/avatars/avatar93867.png?43){kind=avatar}
Похожие темы
Комбинированный вид
