Тема: Метка
Показать сообщение отдельно
  #22  
Старый 09.07.2011, 19:29
Аватар для Konrad
Konrad Konrad вне форума
Эксперт
 
Регистрация: 19.03.2009
Сообщения: 1,261
Репутация: 45834
По умолчанию

Если Form2.CheckBox5.Checked=true
у тебя программа будет виснуть.
Код:
procedure TForm1.Button1Click(Sender: TObject);
label
  Guess;
begin
 acc.LoadFromFile('\FireString\acc.txt')

Guess:
for i:=0 to acc.Count - 1 do
begin
    Memo1.Lines.Add('');
  
  if Form2.CheckBox2.Checked then
  begin 
...................................   
  end;
end;
acc.Free;

if Form2.CheckBox5.Checked then
begin
  Application.Restore;
  Timer1.Enabled:=true;
  Timer1.Interval:=10000;
  Goto Guess;
end;

Application.Restore;

end;

Смотрим.
1. если Form2.CheckBox5.Checked=true
то
Timer1.Enabled:=true;
Timer1.Interval:=10000;
Что это нам даст? Неопнятно. Типа включим таймер, и?)
2.далее попадаем в цикл
for i:=0 to acc.Count - 1 do
в нем
3. if Form2.CheckBox2.Checked
если чекед выполняем действия с акками.
А если нет, то пустой цикл)))
4. Снова к п1.

Заметь таймер тут ни на что не влияет.
Выходит безконечный цикл.


Вывод: так не делают.
В онтаймер напиши код и задай интервал таймеру соответствующий.

Вот:
PHP код:
procedure TForm1.Timer1Timer(SenderTObject);
begin
 
if checkbox5.Checked then
  begin
    showmessage
('Мего авторизация 130 акков)');
  
end;
end
Ответить с цитированием