13. И, наконец, последний штрих - подготовка программы к работе. Для того, чтобы программа могла подготовить себя к работе, нужно добавить еще несколько операторов.

Из выпадающего списка окна Object Inspector выберите объект Main_form. Перейдите на вкладку Events(События) и выполните двойной щелчок на поле ввода OnActivate. Delphi подготовила шаблон процедуры, которая будет выполняться всякий раз при активизации формы. За Вами - наполнение шаблона содержимым.

procedure TMain_form.FormActivate(Sender: TObject);

begin

// инициализируем генератор случайных чисел

Randomize;

// установим признак начала новой игры

begin_of_new_game:=True;

// вызовем процедуру обработки

bbRunClick(Sender);

end;

Индивидуальное задание

Вычислить сумму ряда тремя различными способами

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Buttons, StdCtrls;

type

TForm1 = class(TForm)

mmOutput: TMemo;

bbRun1: TButton;

Button2: TButton;

Button3: TButton;

bbClose: TBitBtn;

procedure bbRun1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.bbRun1Click(Sender: TObject);

Var

i,x :Integer;

Begin

// цыкл с параметром (for)

x:=0;

for i := 1 to 10 do

inc( x, i); // x := x + i;

mmOutput.lines.Add(inttostr(x));

end;

procedure TForm1.Button2Click(Sender: TObject);

Var

i,x :Integer;

begin

// цыкл с предусловием (while)

x:=0; i := 1;

While i < 11 do begin

inc( x, i);

inc(i);

end;

mmOutput.lines.Add(inttostr(x));

end;

procedure TForm1.Button3Click(Sender: TObject);

Var

x,i :Integer;

begin

// цыкл повторения (repeat-until)

begin

x:= 0; i:=1;

Repeat

x:=x+i;

i:=i+1;

Until i >=11;

End;

mmOutput.lines.Add(inttostr(x));

end;

end.