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

begin

halt;

end;

procedure Tfrmrun.FormCreate(Sender: TObject);

var f:file of tconfig;

lesson:tconfig;

n:byte;

begin

n:=0;

assignfile(f,'ld.cfg');

reset(f);

while not eof(f) do begin

inc(n);

read(f,lesson);

names[n]:=lesson.filename;

lblessons.Items.Add('Урок '+inttostr(n)+' '+lesson.name);

end;

closefile(f);

end;

procedure Tfrmrun.lblessonsDblClick(Sender: TObject);

begin

loadlesson;

end;

procedure Tfrmrun.lblessonsKeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then loadlesson

end;

procedure Tfrmrun.Button2Click(Sender: TObject);

begin