[lmikle]

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

Написал такой код:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
  // Нове вікно? з "даними тестування" + посил на принтер
  beep();
  Timer1.Destroy;
  for i := 1 to 11 do
  begin
    TProgressBar(FindComponent('ProgressBar' + IntToStr(pBar))).Visible := false;
  end;
end;

Первая же итерация цикла вызывает Аксес виолатион...
Почему и что неправильно я написал?
И еще вопрос как проверить существует ли Timer1, например?

Проверяй результат FindComponent на Nil. Ну и что такое pBar, мне кажется, что там должно быть I.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
  pb : TProgressBar;
begin
  // Нове вікно? з "даними тестування" + посил на принтер
  beep();
  Timer1.Destroy;
  for i := 1 to 11 do
  begin
    pb := TProgressBar(FindComponent('ProgressBar' + IntToStr(I));
    If pb <> Nil Then pb.Visible := false;
  end;
end;

Для Timer1 тоже самое

Код:

var
  tm : TTimer;
begin
  tm := TTimer(FindComponent('Timer1'));
  If tm <> Nil Then ...