[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, например?

[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 ...

[lostbananan]

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

Код:

  for i := 1 to 11 do
  begin
    pb := TProgressBar(FindComponent('ProgressBar' + IntToStr(pBar)));
    if pb<>Nil then
    begin
      pb.Visible := false;
      pb.Destroy;
    end;
  end;

мно, Прогрессбары остаются на форме...
Мне надо чтобы они исчезли, я же присваиваю видимости фальсе, Почему прогресбары не исчезают*

[Bargest]

А имена-то им правильные назначены? И опять же, при чем тут IntToStr(pBar)? Об этом уже написали. Ты читаешь ответы по диагонали?

[lostbananan]

Пардон за pb, но компилятор ошибки не выдает да и само приложение работает нормально, но прогресбары не исчезают. Сейчас проверю с правильными на 99% именами.
Проверил, спасибо, ошибка или неточность как раз была с именами...

[angvelem]

Поосторожнее с Destroy, рекомендуется использовать Free. И, если контролы созданы в Design-time, то удалять их НЕЛЬЗЯ.