УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

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

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

		Форум АНТИЧАТ > Программирование_OLD > С/С++, C#, Delphi, .NET, Asm
[Delphi]/[Pascal] Задай вопрос, получи ответ

Страница 193 из 677

193

Опции темы

Поиск в этой теме

Опции просмотра

#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

Цитата:

Сообщение от t04

сделал. ничё не происходит....
просто как тока прогресс бар достигает 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

да дело не в цикле, дело в том что событие он 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