Книга: Delphi. Учимся на примерах

Шутка №8 — сообщение об ошибке, содержащее "мусор"

Шутка №8 — сообщение об ошибке, содержащее "мусор"

Восьмая шутка будет выводить сообщение об ошибке, но не простое, а содержащее огромное количество случайных чисел. Код этой шутки:

for i:=1 to 200 do begin
 case i of
 //после каждого 25-го числа – перенос на новую строку
 25,50,75,100,125,150,175,199: err_str:= err_str + #13#10;
 end;
 //текст "ошибки"
 err_str:= err_str + IntToStr(Random(99999));
end;
MessageDlg(errstr, mtError, [mbOk], 0); //выводим сообщение

В цикле от 1 до 200 выбирается случайное число от 0 до 99999. Все числа преобразовываются к символьному виду и добавляются к строковой переменной errstr. На каждом 25-м числе происходит перенос строки. В результате выдается примерно такое сообщение об "ошибке" как на рис. 14.1.


Рис. 14.1. Сообщение об "ошибке"

Оглавление книги

Похожие страницы

Генерация: 1.049. Запросов К БД/Cache: 3 / 1
поделиться
Вверх Вниз