Browser, саме він і відображає HTML сторінки. При натисканні миші по компоненту RadioButton запускається процедура, яка відображає html сторінку в компоненті WebBrowser
procedure TForm1. RadioButton1Click (Sender: TObject);. Navigate (ExtractFilePath (Application. ExeName) + «Base theory rules. Htm»);
end;
Пункт тести являє собою тест з 1000 питань, і складається з наступних компонентів: Label, Panel, Button, Image, Edit
Принцип роботи іспиту наступний. Після натиснути на пункт іспит з'являться питання, після вибору варіанта відповіді варіанти відповідей підфарбувати залежно від обраного відповіді, стане активна кнопка далі (перехід до наступного питання).
Рис.3. Іспит.
Процедура запуску тесту (іспиту):
Задаються змінні для підрахунку правильних відповідей та номера питання.
nomer: Integer=0;// Номер питання (файлу)
prav=0;// Правильну відповідь
neprav=0;// НеправіWL; `11льний відповідь
procedure TForm1. RadioButton5Click (Sender: TObject);// Запуск тестування.
Button1. Click;// Функціональна кнопка (не відображається в програмі.)
end;
Далі йде зогрузка і вибірка питань
procedure TForm1. Button1Click (Sender: TObject); f: TextFile;, s1: string;, i, id, p, rnd: integer;// Опис змінних
edit1. Text:=inttostr (nomer);// Відображає номер питання
скидання значень змінних
p:=0;// Наявність картинки у файлі
id:=0;
kol:=0; i:=1 to 5 do [i]:=«»; (f, «data /» + inttostr (nomer)); (f); not eof (f) do (id); (f, s); (f, s1); copy (s1, 1,1)=«#» then:=s1; (f, s1);; (id=1) and (s=«# IMGS») then. Picture. LoadFromFile («data / imagedata /» + s1);// Завантаження картинки:=1;; (id=1) and (p=0) then. Picture. LoadFromFile («data / imagedata / none. Bmp»); s=«# QUESTION» then. Top:=image1. Top + image1. Height +20;. Caption:=s1;; s=«# ANS» then (kol); kol=1 then mas [1]:=s1; kol=2 then mas [2]:=s1; kol=3 then mas [3]:=s1; kol=4 then mas [4]: =s1; kol=5 then mas [5]:=s1;;; (f);. clear; mas [1] <> «» then ListBox1. Items. Add (mas [1]); mas [2] <> «» then ListBox1. Items. Add (mas [2]); mas [3] <> «» then ListBox1. Items. Add (mas [3]); mas [4] <> «» then ListBox1. Items. Add (mas [4]); mas [5] <> «» then ListBox1. Items. Add (mas [5]); ListBox1. Items. count> 0 then begin:=random (listbox1. Items. Count);. Caption:=listbox1. Items. Strings [rnd];. Items. Delete (rnd); label3. Caption:=«»; ListBox1. Items. count> 0 then begin:=random (listbox1. Items. Count);. Caption:=listbox1. Items. Strings [rnd];. Items. Delete (rnd); label4. Caption:=«»; ListBox1. Items. count> 0 then begin:=random (listbox1. Items. Count);. Caption:=listbox1. Items. Strings [rnd];. Items. Delete (rnd); label5. Caption:=«»; ListBox1. Items. count> 0 then begin:=random (listbox1. Items. Count);. Caption:=listbox1. Items. Strings [rnd];. Items. Delete (rnd); label6. Caption:=«»; ListBox1. Items. count> 0 then begin:=random (listbox1. Items. Count);. Caption:=listbox...
