Создание электронного учебника «Правовые основы медико-социальной экспертизы»

t:=strtoint(edit2.text);

inc(t);

edit2.text:=inttostr(t);

end;

20: if radiobutton5.checked=true then

begin

t:=strtoint(edit2.text);

inc(t);

edit2.text:=inttostr(t);

end;

21: if radiobutton5.checked=true then

begin

t:=strtoint(edit2.text);

inc(t);

edit2.text:=inttostr(t);

end;

22: if radiobutton5.checked=true then

begin

t:=strtoint(edit2.text);

inc(t);

edit2.text:=inttostr(t);

end;

23: if radiobutton5.checked=true then

begin

t:=strtoint(edit2.text);

inc(t);

edit2.text:=inttostr(t);

end;

24: if radiobutton4.checked=true then

begin

t:=strtoint(edit2.text);

inc(t);

edit2.text:=inttostr(t);

end;

25: if radiobutton5.checked=true then

begin

t:=strtoint(edit2.text);

inc(t);

edit2.text:=inttostr(t);

end;

26: if radiobutton4.checked=true then

begin

t:=strtoint(edit2.text);

inc(t);

edit2.text:=inttostr(t);

end;

27: if radiobutton4.checked=true then

begin

t:=strtoint(edit2.text);

inc(t);

edit2.text:=inttostr(t);

end;

28: if radiobutton4.checked=true then

begin

t:=strtoint(edit2.text);

inc(t);

edit2.text:=inttostr(t);

end;

29: if radiobutton5.checked=true then

begin

t:=strtoint(edit2.text);

inc(t);

edit2.text:=inttostr(t);

end;

30: if radiobutton5.checked=true then

begin

t:=strtoint(edit2.text);

inc(t);

edit2.text:=inttostr(t);

end;

31: if radiobutton5.checked=true then

end;

radiobutton1.Checked:=false;

radiobutton2.Checked:=false;

radiobutton3.Checked:=false;

radiobutton4.Checked:=false;

radiobutton5.Checked:=false;

if i=31 then

begin

closefile(f);

writeln(frez,'Количество правильных ответов: '+inttostr(t));

writeln(frez,'________________________________');

showMessage('Тест окончен! Количество правильных ответов'+' '+inttostr(t)+' '+'из'+' '+inttostr(i));

closefile(frez);

form3.Close;

button1.Visible:=true;

button2.Visible:=false;

edit3.Visible:=true;

edit4.Visible:=true;

memo1.Visible:=false;

memo1.lines[0]:='';

radiobutton1.Visible:=false;

radiobutton2.Visible:=false;

radiobutton3.Visible:=false;

radiobutton4.Visible:=false;

radiobutton5.Visible:=false;

label1.Visible:=false;

label2.Visible:=false;

label3.Visible:=false;

label7.Visible:=false;

label8.Visible:=false;

edit3.Text:='';

edit4.Text:='';

form3.Height:=440;

form3.Width:=475;

edit1.Text:='-1';

end;

end;

procedure TForm3.Button1Click(Sender: TObject);

begin

if (edit3.Text='') or (edit4.Text='') then

begin

showmessage('Заполни пустые  поля');

exit;

end

else

begin

if fileexists('результат.txt')

then

begin

assignfile(frez,'результат.txt');

append(frez);

writeln(frez,'ФИО: '+edit3.text);

writeln(frez,'Группа: '+edit4.text);

end

else

begin

assignfile(frez,'резульат.txt');

rewrite(frez);

writeln(frez,'ФИО: '+edit3.text);

writeln(frez,'Группа: '+edit4.text);

end;

assignfile(f,'Тест.txt');

reset(f);

form3.Height:=500;

form3.Width:=1200;

form3.Position:=poScreenCenter;

button1.Visible:=false;

button2.Visible:=true;

edit3.Visible:=false;

edit4.Visible:=false;

memo1.Visible:=true;

radiobutton1.Visible:=true;

radiobutton2.Visible:=true;

radiobutton3.Visible:=true;

radiobutton4.Visible:=true;

radiobutton5.Visible:=true;

label1.Visible:=true;

label2.Visible:=true;

label3.Visible:=true;

label7.Visible:=true;

label8.Visible:=true;

i:=strtoint(edit1.Text);

inc(i);

edit1.text:=inttostr(i);

readln(f,s);

memo1.Lines[0]:=s;

readln(f,s);

label1.caption:=s;

readln(f,s);

label2.caption:=s;

readln(f,s);

label3.caption:=s;

readln(f,s);

label7.caption:=s;

readln(f,s);

label8.caption:=s;

end;

end;

procedure TForm3.Label1Click(Sender: TObject);

begin

radiobutton1.Checked:=true;

end;

procedure TForm3.Label2Click(Sender: TObject);

begin

radiobutton2.Checked:=true;

end;

procedure TForm3.Label3Click(Sender: TObject);

begin

radiobutton3.Checked:=true;

end;

procedure TForm3.Label7Click(Sender: TObject);

begin

radiobutton4.Checked:=true;

end;

procedure TForm3.Label8Click(Sender: TObject);

begin

radiobutton5.Checked:=true;

end;

end.

 

Form 4 – Форма помощь

unit Unit4;

interface

uses

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

Dialogs, StdCtrls, OleCtrls, SHDocVw;

type

TForm4 = class(TForm)

WebBrowser1: TWebBrowser;

Button1: TButton;

procedure Button1Click(Sender: TObject);

procedure FormShow(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);

begin

Form1.Show;

Form4.Hide;

end;

procedure TForm4.FormShow(Sender: TObject);

var path:string;

begin

WebBrowser1.Align:=alClient;

GetDir(0,path);

WebBrowser1.Navigate(path+'\Помощь.htm');

end;

end.