Подготовка фрагмента электронного учебного пособия для включения в общую электронную оболочку

  end;

end;

создание связи с файлом через fIni

procedure TForm3.FormShow(Sender: TObject);

begin

QuestNum:=1;

fIni:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Test.ini');

fReadQuest;

end;

освобождение fIni

procedure TForm3.FormHide(Sender: TObject);

begin

fIni.Free;

end;

procedure TForm3.Button1Click(Sender: TObject);

begin

// проверка есть все ли поля заполнены

 if (edquest.Text='')or(ed1.Text='')or(ed2.Text='')or

    (ed3.Text='')or(ed4.Text='') then

 begin

  //если нет тогда вывод  сообщения

  MessageBox(Form3.Handle,'Не все поля заполнены...','Внимание',MB_TASKMODAL or MB_ICONINFORMATION);

  abort;

end else

//проверка символа |, если он  есть то это правельный ответ

 case rg.ItemIndex of

  0:begin q1:='|'; q2:=''; q3:=''; q4:=''; end;

  1:begin q1:=''; q2:='|'; q3:=''; q4:=''; end;

  2:begin q1:=''; q2:=''; q3:='|'; q4:=''; end;

  3:begin q1:=''; q2:=''; q3:=''; q4:='|'; end;

 end;

fWriteQuest;

end;

перемещение на запись в перед

procedure TForm3.Button2Click(Sender: TObject);

begin

if countQuest<=QuestNum then abort else

inc(QuestNum);

fReadQuest;

end;

зоздание нового вопроса и очистка  полей от старых записей

procedure TForm3.Button4Click(Sender: TObject);

begin

ed1.Text:='';

ed2.Text:='';

ed3.Text:='';

ed4.Text:='';

edquest.Text:='';

QuestNum:=(fIni.ReadInteger('CountQuest','count',0))+1;

end;

перемещение на запись назад

procedure TForm3.Button3Click(Sender: TObject);

begin

if QuestNum<=1 then abort else

Dec(QuestNum);

  fReadQuest;

end;

 удаление записи

procedure TForm3.Button5Click(Sender: TObject);

var StrQuest, strEd1, strEd2, strEd3, strEd4:String;

    fExist:boolean;

    x,y:integer;

begin

x:=0;

dec(countQuest);

fIni.WriteInteger('CountQuest','count',countQuest);

fIni.EraseSection('quest#'+inttostr(QuestNum));

for i:=QuestNum+1 to countQuest+1 do

  begin

   StrQuest:=fIni.ReadString('quest#'+inttostr(i),'quest','');

    strEd1:=fIni.ReadString('quest#'+inttostr(i),'answer1','');

     strEd2:=fIni.ReadString('quest#'+inttostr(i),'answer2','');

      strEd3:=fIni.ReadString('quest#'+inttostr(i),'answer3','');

       strEd4:=fIni.ReadString('quest#'+inttostr(i),'answer4','');

       fIni.EraseSection('quest#'+inttostr(i));

 

   fIni.WriteString('quest#'+inttostr(i-1),'quest',StrQuest);

    fIni.WriteString('quest#'+inttostr(i-1),'answer1',strEd1);

     fIni.WriteString('quest#'+inttostr(i-1),'answer2',strEd2);

      fIni.WriteString('quest#'+inttostr(i-1),'answer3',strEd3);

       fIni.WriteString('quest#'+inttostr(i-1),'answer4',strEd4);

  end;

end;

перезапись файла ини

procedure TForm3.Button6Click(Sender: TObject);

begin

fIni.Free;

DeleteFile(ExtractFilePath(Application.ExeName)+'test.ini');

fIni:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'test.ini');

 Button4Click(sender);

end;

end.