ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование_OLD > С/С++, C#, Delphi, .NET, Asm
Перезагрузить страницу [Delphi]/[Pascal] Задай вопрос, получи ответ
   
 
 
Опции темы Поиск в этой теме Опции просмотра
Предыдущая Предыдущее сообщение   Следующее сообщение Следующая

  #11  
Старый 18.07.2008, 00:21
Nightmarе
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763

Репутация: 1680


Отправить сообщение для Nightmarе с помощью ICQ
По умолчанию
Цитата:
Сообщение от 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;
 
 



« Предыдущая тема | Следующая тема »


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ