Реферат: Разработка интерактивной среды обучения

frmresult.show

end;

procedure TfrmLesson.FormPaint(Sender: TObject);

begin

texty:=2;

if first then begin

first:=false;

fontemp:=frmlesson.canvas.font;

drawpage

end else begin

nopaint:=true;

drawpage;

nopaint:=false

end

end;

procedure TfrmLesson.FormShow(Sender: TObject);

var s,name:string;

begin

nq:=0;

first:=true;

nopaint:=true;

assignfile(f,lessonname);

reset(f);

while not eof(f) do begin

readln(f,s);

if s='/:question' then inc(nq)

end;

closefile(f);

reset(f);