Иллюстрированный самоучитель по Kylix




Листинг 9 8 Генерация молчаливого исключения



Листинг 9.8. Генерация молчаливого исключения

procedure TForm1.Button1Click(Sender: TObject); var
I: Integer; begin for I := 1 to 10 do {цикл 10 paз} begin
ListBox1.Items.Add(IntToStr(I)); {добавляем номер в список} if I = 7 then Abort; {прерываем добавление номеров в список после
добавления седьмого номера} end; end;

Запустим программу. В результате работы программы, после нажатия кнопки Button1, в список будет добавлено семь строк с номерами от 1 до 7 (Рисунок 9.5).

Если нажать кнопку несколько раз, то в список будут добавлены новые строки с номерами от 1 до 7 после имеющихся (Рисунок 9.6).



Содержание Назад Вперед