Пройденный материал на практике

Создадим немного глупый, но использующий все новые возможности проект. Создайте новый проект, переименуйте форму вfMain, а в свойстве Caption укажите "Случайные числа". Сохраните проект в новую папку. Проект назовите RandomNum.

Установите на форму Memo, удалите из него весь текст. Ниже – кнопку с названием "Генерировать".

Рис. 9.2. Окончательный вид формы

В обработчике нажатий на кнопку впишем такой текст:

procedure TfMain.Button1Click(Sender: TObject);

const

MaxValue = 1000; //записываем максимальный размер случайных чисел

var

a: array [1..100] of Integer; //массив целых чисел из 100 элементов

i: integer; //счетчик для for

s: String;

begin

//вначале очистим Memo:

Memo1.Clear;

//Заполняем случайными числами от 0 до MaxValue-1 массив a:

for i:= 1 to 100 do

a[i]:= Random(MaxValue);

//данные из массива добавляем сначала в строковую переменную, затем в Memo:

s:= '';

for i:= 1 to 100 do

s:= s + IntToStr(a[i]) + ', ';

Memo1.Lines.Add(s);

end;

В результате выполнения этого кода мы получим строку s, в которой через запятую будут перечислены 100 случайных чисел от 0 до 999.