HOME    FORUMS    MEMBERS    RECENT POSTS    LOG IN  
Баннер 1   Баннер 2

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

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Перезагрузить страницу [Delphi]/[Pascal] Задай вопрос, получи ответ
   
Ответ
Страница 193 из 677 « Первая < 93143183 189 190 191 192 193 194 195 196 197 203243293 > Последняя »
 
Опции темы Поиск в этой теме Опции просмотра

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

Репутация: 1680


Отправить сообщение для Nightmarе с помощью ICQ
По умолчанию
Ещё один глупый вопрос, в событие прогресс бара:
procedure TForm1.progressbarDragDrop(Sender, Source: TObject; X,
Y: Integer);

Я вписываю код проверки на % выполнения:

if progressbar.Position > 40 then
begin
команда
end;

Нифига не пашет. Где ошибка?
 
Ответить с цитированием

  #1922  
Старый 20.07.2008, 23:20
t04
Участник форума
Регистрация: 10.01.2007
Сообщений: 140
Провел на форуме:
246020

Репутация: 105
По умолчанию
событие DragDrop вызывается? установи курсор на строке if progressbar.Position > 40 then и нажми f4. если событие вызывается то программа станет на паузу и подсветит строку на которой курсор.
 
Ответить с цитированием

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

Репутация: 1680


Отправить сообщение для Nightmarе с помощью ICQ
По умолчанию
Цитата:
Сообщение от t04  
событие DragDrop вызывается? установи курсор на строке if progressbar.Position > 40 then и нажми f4. если событие вызывается то программа станет на паузу и подсветит строку на которой курсор.
сделал. ничё не происходит....
просто как тока прогресс бар достигает 40 мне надо одну команду выполнить... вот и хз куда его там вставлять...
 
Ответить с цитированием

  #1924  
Старый 20.07.2008, 23:49
FIND_ERROR
Познающий
Регистрация: 30.04.2007
Сообщений: 77
Провел на форуме:
393625

Репутация: 50
Отправить сообщение для FIND_ERROR с помощью ICQ
По умолчанию
попробуй поставить событие на OnDragOver или OnDragEnd
 
Ответить с цитированием

  #1925  
Старый 21.07.2008, 03:25
t04
Участник форума
Регистрация: 10.01.2007
Сообщений: 140
Провел на форуме:
246020

Репутация: 105
Exclamation
да дело не в цикле, дело в том что событие он DragDrop не вызывается. ты вообще знаешь когда оно вызывается? и не понятно зачем ты делаешь драг анд дроп програесс бара? это какой то ужас.

если я понял верно то тебе надо всего лишь выловить когда прогресс бар будет более 40? если так то обрабатывай проседуру в которой ты увеличиваешь посицию. если ничего не понял из моих слов то выкладывай код сюда, прикрепи к сообщению или залей на файлобменник какой нить и ссылку кинь.

на самый крайний случай кинь на форму таймер, установи Timer.Interval на 50 и повесь на него код.

Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Interval := 50;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if progressbar.Position > 40 then
    begin
      команда
    end;
end;
Последний раз редактировалось t04; 21.07.2008 в 03:29..
 
Ответить с цитированием

  #1926  
Старый 21.07.2008, 07:01
krypt3r
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме:
3660186

Репутация: 905


По умолчанию
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  progressbar.Position := progressbar.Position + 1;
  if progressbar.Position > 40 then
    begin
      команда
    end;
end;
 
Ответить с цитированием

  #1927  
Старый 21.07.2008, 12:48
A_V
Участник форума
Регистрация: 18.02.2008
Сообщений: 125
Провел на форуме:
562108

Репутация: 107
По умолчанию
Как прочитать файл построчно, и при появлении новой строки автоматом занести ее в переменную?

Спасибо за помощь!
 
Ответить с цитированием

  #1928  
Старый 21.07.2008, 12:56
krypt3r
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме:
3660186

Репутация: 905


По умолчанию
Собираешься периодически обращаться к файлу и опрашивать его на предмет появления новых строк?
 
Ответить с цитированием

  #1929  
Старый 21.07.2008, 12:57
Exile1985
Участник форума
Регистрация: 10.08.2006
Сообщений: 147
Провел на форуме:
404152

Репутация: 94
По умолчанию
Цитата:
Сообщение от a_v  
Как прочитать файл построчно, и при появлении новой строки автоматом занести ее в переменную?

Спасибо за помощь!
Уточни что именно хочешь.
"появлении новой строки" - если добавиться еще строка или если какая либо из имеющихся изменится?

"автоматом занести ее в переменную? " - т.е. прога при старте должна проверсять целостность файла и если он изменился уведомлять?
 
Ответить с цитированием

  #1930  
Старый 21.07.2008, 13:02
A_V
Участник форума
Регистрация: 18.02.2008
Сообщений: 125
Провел на форуме:
562108

Репутация: 107
По умолчанию
Мне надо, чтобы переодически(по таймеру), проверять файл на предмет появления новых строк, если новая строка(или строки) появились - все это занести в переменную к примеру dogma
 
Ответить с цитированием
Ответ
Страница 193 из 677 « Первая < 93143183 189 190 191 192 193 194 195 196 197 203243293 > Последняя »



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[jQuery] - Задай вопрос, получи ответ Isis PHP 62 25.12.2009 03:25



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


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




ANTICHAT.XYZ