Лабораторная работа6

Добавление методов

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

type TRandom = class(TLabel)

...

public { Public declarations }

Function GetNumber: Integer;

...

End;

Function TRandom.GetNumber: Integer; var i: Integer;

begin

Randomize;

//Получаем случайное число от Fmin до FMax.

i:= System.Random(Fmax - Fmin + 1)+ Fmin;

//Выводим результат на компонент.

self.Caption := IntToStr (i);

//Возвращаем результат.

Result:=i;

end;

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

Содержание