Отправляет email-рассылки с помощью сервиса Sendsay

Delphi. Уроки

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 8.315 RSS
←   Декабрь 2003   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://progs.biz
Открыта: 19-12-2001

Автор
Алексеев Игорь

Статистика

8.315 подписчиков
0 за неделю
←   Все выпуски   →

Delphi. Уроки


Информационный Канал Subscribe.Ru

Delphi. Создание компонентов. Уроки с сайта http://progs.biz

Рассылка № 38

Delphi. Создание компонентов. Урок 4. Добавление методов.
Полные версии уроков (с картинками) можно найти по адресам:
Урок 4. Добавление методов
Фленов М. Программирование в Delphi глазами хакера.
Фленов М. Программирование в Delphi глазами хакера
Заказать на Озоне

Подробнее
Рассылки сайта progs.biz через subscribe.ru
Уроки по Flash MX
Уроки по Flash MX с сайта http://progs.biz. От создания отдельных роликов до применения языка ActionScript.

Delphi. Создание компонент. Урок 4. Добавление методов

Приступаем к добавлению метода. Назовем мы его GetNumber, и он будет выдавать случайное число от min до max.

Сначала мы должны объявить новый метод в классе компонента. Это мы сделаем в public-секции, так как наш метод должен вызываться извне:

type
  TRandom = class(TLabel)
  ...
  public
    { Public declarations }
    Function GetNumber: Integer;

Далее в этом же файле мы должны написать реализацию этого метода:

Function TRandom.GetNumber: Integer;
var
  i: Integer;
begin
  //Включение датчика случайных чисел.
  Randomize;
  //Получаем случайное число от Fmin до FMax.
  i:= System.Random(Fmax - Fmin + 1)+ Fmin;
  //Выводим результат на компонент.
  self.Caption := IntToStr (i);
  //Возвращаем результат.
  Rand:=i;
end;

То, что делается, ясно из комментария. Отметьте только, что мы используем полное имя для функции Random, чтобы не было конфликта с именем нашего модуля.

Добавленная нами функция выведет случайное число на компонент и возвратит его же в качестве возвращаемого значения.

Наверх
PARKING.RU. Качественный ВИРТУАЛЬНЫЙ ХОСТИНГ на платформе Windows(r): поддержка .NET, многофункциональная панель управления, аренда бизнес-приложений, сертифицированные специалисты. Управляемый ВЫДЕЛЕННЫЙ ХОСТИНГ на платформе Windows(r): производительные серверы, профессиональная поддержка, аренда ПО Microsoft(r), безопасность, гарантии. http://www.parking.ru
Copyright Алексеев Игорь, 2002-2003
Copyright сайт progs.biz, 2002-2003
Распространение материалов без разрешения владельцев авторских прав запрещено.

BannerDrive.ru
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное