ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
15.07.2008, 22:29
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
1821
|
|
Почему???)))))) А модуль если сделать?!?!?! =)
Зачем изобретать велосипед??? z01b правильно сказал)
|
|
|
17.07.2008, 18:18
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
Подскажите плиз, у меня вместо цикла юзается вот этот код:
if source.Count>0 then
типа цикл такой, и как вместе с ним заставить работать прогрессбар???
чтобы от и до показывал процесс выполнения всего цикла.
|
|
|
|
17.07.2008, 18:23
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
ProgressBar1.Max:=source.Count;
if source.Count>0 then
begin
...
ProgressBar1.StepIt;
end;
типа того, если я еще не забыл, то StepIt это инкремент на единицу...
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
18.07.2008, 00:21
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
Сообщение от W!z@rD
ProgressBar1.Max:=source.Count;
if source.Count>0 then
begin
...
ProgressBar1.StepIt;
end;
типа того, если я еще не забыл, то StepIt это инкремент на единицу...
Спс, при таком раскладе при первой же команде он на 100% загружается...
Работа с тем же TICQ модулем.
Код:
procedure TForm1.Change;
begin
if source.Count>0 then
begin
tmp:=source.Strings[0];
uin:=copy(tmp,1,pos(';',tmp)-1);
pass:=copy(tmp,pos(';',tmp)+1,length(tmp));
ICQClient1.Password:=pass;
ICQClient1.UIN:=StrToInt(uin);
Log.Lines.Add('Try to connect '+uin+';'+pass+' ... ');
ICQClient1.Login;
end;
end;
|
|
|
|
17.07.2008, 18:55
|
|
Познающий
Регистрация: 15.02.2008
Сообщений: 98
Провел на форуме:
183980
Репутация:
50
|
|
после ProgressBar1.StepIt; может портебоваться ещё вставить
Application.ProcessMessages; чтоб форма перересовывалась
|
|
|
|
18.07.2008, 08:08
|
|
Постоянный
Регистрация: 18.02.2008
Сообщений: 368
Провел на форуме:
4075418
Репутация:
386
|
|
ребят раскажите как в delphi 7 добавить сылку на модуль в определеном разделе.
Если можно то со скринами чтоб попонятней было , заранее сенкс)
|
|
|
|
18.07.2008, 11:51
|
|
Участник форума
Регистрация: 25.05.2007
Сообщений: 290
Провел на форуме:
1740746
Репутация:
435
|
|
ребят раскажите как в delphi 7 добавить сылку на модуль в определеном разделе.
Если можно то со скринами чтоб попонятней было , заранее сенкс)
Немного не поняла вопроса.
1) Если тебе надо подключить дополнительный модуль, то прописываешь его в uses в самом верху у своей программы.
2) А если надо добавить модуль в сам Делфи то "Component" --> "Install Component" --> Выбираешь компонент и жмешь ок --> "Жмякаешь на Compile а потом на Install"
3) Чтобы поместить в определенный раздел юзай "Component" --> "Configure Palette или Panelle"
Точно второй вариант не помню, но даже если и отличается то только словами, наврятли что то я пропустила.
PS: Правильный вопрос - это половина ответа
Последний раз редактировалось Flame of Soul; 18.07.2008 в 11:56..
|
|
|
|
18.07.2008, 11:55
|
|
Постоянный
Регистрация: 18.02.2008
Сообщений: 368
Провел на форуме:
4075418
Репутация:
386
|
|
Flame of Soul о я догнал))) пасиба мне надо было прописать в верху программы)
Пшол я дальше учебник мучать  |
|
|
|
18.07.2008, 19:15
|
|
Участник форума
Регистрация: 10.01.2007
Сообщений: 140
Провел на форуме:
246020
Репутация:
105
|
|
warlok
в папке Projects есть папка Bpl кинь модуль в нее или кинь модуль в папку с исходником, в разделе uses напиши название модуля. только надо без расширения писать имя файла модуля.
Последний раз редактировалось t04; 20.07.2008 в 00:18..
|
|
|
|
20.07.2008, 04:56
|
|
Новичок
Регистрация: 23.05.2008
Сообщений: 4
Провел на форуме:
3239
Репутация:
0
|
|
народ, помогите пожалуйста....есть задание: Отделите корни уравнения графически и уточните один из них методом хорды с точностью до 0,001.
уравнение: х+lgx=0.5
может кто поможет с алгоритмом?
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид