Может быть, сделаем паузу? Да, вызывая вполне серьезную на вид функцию, будем
получать совсем несерьезный результат.
Создайте новый проект и поместите на форму кнопку Button 1 и этикетку Labell.
В процедуре Buttoniciick (процедура обработки события OnClick кнопки Buttonl)
напишите всего лишь одну строку кода:
Labell.Caption := IntToStr(25);
И запустите программу. Если нажать кнопку, то на этикетке появится текст «25».
Теперь сделаем вид, что функция IntToStr, которая преобразует число в строку,
нам не нравится, и поэкспериментируем с ней.
Напишем такую функцию (не забудьте объявить ее в классе формы).
Листинг 6.6
function TForml. lntToStr(i: Shortint): String;
// наша собственная функция IntToStr
begin
IntToStr := Вигвам - индейская народная изба!;
end;
Если теперь запустить программу и нажать кнопку, то вместо «25» появится совсем
другое! Работает не стандартная функция Delphi, а наша.
