Реферат Розробка програмного та інформаційного забезпечення електронного навчально-методичного комплексу з предмету інформатика на прикладі 9 класу

авильна відповідь

for i:=1 to 4 do:=fIni.ReadString (str1, answer + inttostr (i), ); q1 [1]= | then rg.ItemIndex:=i - 1 ;;;

запис в файлTForm3.fWriteQuest; .Caption:=inttostr (QuestNum);

//if not fEdit then

//begin (countQuest);

записуємо поточну кількість вопросов.WriteInteger ( CountQuest , count , countQuest);

//end;

запис питання з відповідями в файл ..

fIni.WriteString(laquo;quest#raquo;+inttostr(QuestNum),laquo;questraquo;,edquest.Text);i:=0 to 3 do.WriteString(laquo;quest#raquo;+inttostr(QuestNum),laquo;answer1raquo;,q1+ed1.Text);.WriteString(laquo;quest#raquo;+inttostr(QuestNum),laquo;answer2raquo;,q2+ed2.Text);.WriteString(laquo;quest#raquo;+inttostr(QuestNum),laquo;answer3raquo;,q3+ed3.Text);.WriteString(laquo;quest#raquo;+inttostr(QuestNum),laquo;answer4raquo;,q4+ed4.Text);

end ;;

створення зв'язку з файлом через fIni

procedure TForm3.FormShow (Sender: TObject);:=1;:=TIniFile.Create (ExtractFilePath (Application.ExeName) + Test.ini ) ;;;

звільнення fIniTForm3.FormHide (Sender: TObject) ;. Free ;; 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; else

//перевірка символу |, якщо він є то це правельний відповідь

case rg.ItemIndex of

: begin q1:= | raquo ;; q2:= raquo ;; q3:= raquo ;; q4:= raquo ;; end;

: begin q1:= raquo ;; q2:= | raquo ;; q3:= raquo ;; q4:= raquo ;; end;

: begin q1:= raquo ;; q2:= raquo ;; q3:= | raquo ;; q4:= raquo ;; end;

: begin q1:= raquo ;; q2:= raquo ;; q3:= raquo ;; q4:= | raquo ;; end;

end ;;;

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

procedure TForm3.Button2Click (Sender: TObject); countQuest lt;=QuestNum then abort else

inc (QuestNum) ;;;

зозданіе нового питання і очищення поля від старих записів

procedure TForm3.Button4Click (Sender: TObject);.Text:=laquo;raquo;;.Text:=laquo;raquo;;.Text:=laquo;raquo;;.Text:=laquo;raquo;;.Text:=laquo;raquo;;:=(fIni.ReadInteger(laquo;CountQuestraquo;,laquo;countraquo;,0))+1;;

переміщення на запис назадTForm3.Button3Click (Sender: TObject); QuestNum lt;=1 then abort else (QuestNum) ;;;

видалення запісіTForm3.Button5Click (Sender: TObject); StrQuest, strEd1, strEd2, strEd3, strEd4:String;:boolean;,y:integer;:=0;(countQuest);.WriteInteger(laquo;CountQuestraquo;,laquo;countraquo;,countQuest);.EraseSection(laquo;quest#raquo;+inttostr(QuestNum));i:=QuestNum+1 to countQuest + 1 do:=fIni.ReadString(laquo;quest#raquo;+inttostr(i),laquo;questraquo;,laquo;raquo;);:=fIni.ReadString(laquo;quest#raquo;+inttostr(i),laquo;answer1raquo;,laquo;raquo;);:=fIni.ReadString(laquo;quest#raquo;+inttostr(i),laquo;answer2raquo;,laquo;raquo;);:=fIni.ReadString(laquo;quest#raquo;+inttostr(i),laquo;answer3raquo;,laquo;raquo;);:=fIni.ReadString(laquo;quest#raquo;+inttostr(i),laquo;answer4raquo;,laquo;raquo;);.EraseSection(laquo;quest#raquo;+inttostr(i));.WriteString(laquo;quest#raquo;+inttostr(i- 1), quest , StrQuest) ;. WriteString ( quest # + inttostr (i - 1), answer1 , strEd1) ;. WriteString ( quest # + inttostr (i- 1), answer2 , strEd2) ;. WriteString ( quest # + inttostr (i - 1), answer3 , strEd3) ;. WriteString ( quest # + inttostr (i- 1), answer4 , strEd4) ;;;

перезапис файлу ініTForm3.Button6Click (Sender: TObject);.Free;(ExtractFilePath(Application.ExeName)+laquo;test.iniraquo;);:=TIniFile.Create(ExtractFilePath(Application.ExeName)+laquo;test.iniraquo;);Click(sender);;.