[lostbananan]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12

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

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

Код:

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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 тоже самое

Код:

1 2 3 4 5

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

[lostbananan]

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

Код:

1 2 3 4 5 6 7 8 9

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, то удалять их НЕЛЬЗЯ.

[lostbananan]

Поп-повду дестрой - спасибо
У меня еще один вопрос приложение, которое пишу будет работать на нескольких компьютерах, как узнать какую максимальную ширину можно задать для окна?