Разработка приложений в системе Delphi. Шейкер Т.Д. - 76 стр.

данные подряд. Если же требуется выполнить выборочное чтение (запись)
данных, то следует действовать по стандартной схеме работы с файлом [9].

                             7.6. Примеры
    Пример 1. Использование функции random без параметров
    Однострочный редактор Edit применяется для задания количества чисел.
Формируемая последовательность выводится в Memo. Вспомогательная
переменная х облегчает запись и восприятие программы. Её использование не
является обязательным.
procedure TForm2.Button1Click(Sender: TObject);
var i:word;
    x:extended;
begin
   for i:=0 to strtoint(Edit1.Text)-1 do
     begin
       x:=random;
       Memo1.Lines.Add(floattostr(x));
     end;
end;

    Пример 2. Использование randomize, random и SpinEdit
    Целочисленный параметр функции random задаётся в компоненте
SpinEdit. Случайные числа выводятся в Memo.
procedure TForm2.Button4Click(Sender: TObject);
var i:word;
begin
 Randomize;
 for i:=0 to 9 do
     Memo2.Lines.Add(inttostr(random(strtoint(SpinEdit1.Text))));
end;

    Пример 3. Ввод целых положительных чисел
    Данные вводятся в Edit1. Для этой компоненты в обработчике события
нажатия клавиши разрешается ввод только десятичных цифр. До вызова
функции перевода строки в число проверяется, не является ли строка пустой.
Введённое число с комментарием отображается в метке Label3. При
отсутствии значения в поле ввода на экран выводится окно с сообщением (в две
строчки) и компоненте Edit1 передаётся фокус ввода.


                                     76