Предыдущая страница реферата | 1  2  3  4  5  6  7 | Следующая страница реферата

{ Private declarations } public

{ Public declarations } end;

var

Form1: TForm1;

Select: integer =1;

Namebzd: text;

implementation // блок выполнения

uses Unit2;

{$R *.DFM}

Procedure ReLoad(Sender: TObject); // обновляет внешний вид формы, новые вопросы и т.д. var str: string; i,n: integer; begin assignfile (Namebzd, 'bzd.txt'); reset (Namebzd); // открывает для чтения str := ''; while str inttostr (Select) do readln (Namebzd, str);// ищет место считывания readln(Namebzd, str);

Form1.Label1.Caption := str; readln(Namebzd, str); i := strtoint (str); for n:= 1 to 4 do // активизируется нужное количество кнопок с ответами begin if n < i+1 then begin readln (Namebzd, str); case n of

1: begin

Form1.Button1.Visible := true;

Form1.Button1.Caption := str; end;

2: begin

Form1.Button2.Visible := true;

Form1.Button2.Caption := str; end;

3: begin

Form1.Button3.Visible := true;

Form1.Button3.Caption := str; end;

4: begin

Form1.Button4.Visible := true;

Form1.Button4.Caption := str; end; end; end else case n of

1: Form1.Button1.Visible := false;

2: Form1.Button2.Visible := false;

Рекомендуем скачать другие рефераты по теме: курсовые, отечественная война реферат.





Предыдущая страница реферата | 1  2  3  4  5  6  7 | Следующая страница реферата