Предыдущая страница реферата | 3  4  5  6  7  8  9  10  11  12  13 | Следующая страница реферата

procedure TfrmMain.Button2Click(Sender: TObject); var f:file of TTest; i:byte; begin if savedialog1.execute then begin assignfile(f,savedialog1.Filename); rewrite(f); for i:=1 to testnum do write(f,test[i]); closefile(f) end end;

procedure TfrmMain.Button1Click(Sender: TObject); var f:file of ttest; begin if opendialog1.execute then begin assignfile(f,opendialog1.Filename); reset(f); testnum:=1; while not eof(f) do begin read(f,test[testnum]); inc(testnum) end; statictext1.Caption:='Всего вопросов '+inttostr(testnum); closefile(f); spinedit1.value:=1; spinedit1change(sender) end end;

procedure TfrmMain.FormCreate(Sender: TObject); var i:byte; begin testnum:=1; variant:=@rb1; nq:=1; for i:=1 to 100 do begin test[i].quest[1]:='Вариант1'; test[i].quest[2]:='Вариант2'; test[i].quest[3]:='Вариант3'; test[i].count[1]:=0; test[i].count[2]:=0; test[i].count[3]:=0; test[i].text:='Текст вопроса' end; end;

procedure TfrmMain.Edit1Change(Sender: TObject); begin label2.Caption:=edit1.Text; test[spinedit1.value].text:=edit1.text end;

procedure TfrmMain.Edit2Change(Sender: TObject); begin variant^.Caption:=edit2.Text; test[spinedit1.value].quest[nq]:=edit2.text end;

procedure TfrmMain.rb1Click(Sender: TObject); begin variant:=@rb1; nq:=1; edit2.Text:=rb1.Caption; spinedit2.Value:=test[spinedit1.Value].count[1]; edit2.SetFocus end;

procedure TfrmMain.rb2Click(Sender: TObject); begin variant:=@rb2; nq:=2; edit2.Text:=rb2.Caption; spinedit2.Value:=test[spinedit1.Value].count[2]; edit2.SetFocus end;

procedure TfrmMain.rb3Click(Sender: TObject); begin variant:=@rb3; nq:=3; edit2.Text:=rb3.Caption; spinedit2.Value:=test[spinedit1.Value].count[3]; edit2.SetFocus end;

procedure TfrmMain.SpinEdit1Change(Sender: TObject); begin if spinedit1.value>testnum then begin inc(testnum); statictext1.caption:='Всего вопросов '+inttostr(testnum) end; label2.Caption:=test[spinedit1.value].text; rb1.Caption:=test[spinedit1.value].quest[1]; rb2.Caption:=test[spinedit1.value].quest[2]; rb3.Caption:=test[spinedit1.value].quest[3]; rb1.Checked:=true; variant:=@rb1; edit1.Text:=test[spinedit1.value].text; edit2.text:=test[spinedit1.value].quest[1]; edit2.setfocus end;

procedure TfrmMain.SpinEdit2Change(Sender: TObject); begin test[spinedit1.value].count[nq]:=spinedit2.value end;

procedure TfrmMain.Button3Click(Sender: TObject); var i:byte; begin if spinedit1.value=testnum then begin dec(testnum); spinedit1.value:=spinedit1.value-1; exit end; if testnum=1 then exit; for i:=spinedit1.value to testnum-1 do test[i]:=test[i+1]; dec(testnum); spinedit1change(sender); statictext1.Caption:='Всего вопросов '+inttostr(testnum) end;

end.

Листинг программы RС:

unit Mainfrm;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, testtypes, StdCtrls, Spin;

type
TfrmMain = class(TForm)

Memo1: TMemo;

SpinEdit1: TSpinEdit;

Label1: TLabel;

SpinEdit2: TSpinEdit;

Label2: TLabel;

Button1: TButton;

Button2: TButton;

SpinEdit3: TSpinEdit;

Рекомендуем скачать другие рефераты по теме: реферат слово, шпорі по философии.



Предыдущая страница реферата | 3  4  5  6  7  8  9  10  11  12  13 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки