Продолжение приложения А

Else Result:= jvre_theme.WordAttributes;

end;

const

IID_IMarshal: TGUID = (D1:$00000003;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));

end.

var

ftest: Tftest;

slist:tstringlist;

i:integer;

implementation

{$R *.dfm}

uses uname;

procedure Tftest.btn_endClick(Sender: TObject);

var j:string;

begin

case rg.itemindex of

0: j:='1';

1: j:='2';

2: j:='3';

3: j:='4'; end;

slist.Add('[Question_'+inttostr(i)+']');

slist.AddStrings(m_question.Lines);

slist.Add('[Q_'+inttostr(i)+'_Answ1]');

slist.AddStrings(m_a1.Lines);

slist.Add('[Q_'+inttostr(i)+'_Answ2]');

Продолжение приложения А

slist.AddStrings(m_a2.Lines);

slist.Add('[Q_'+inttostr(i)+'_Answ3]');

slist.AddStrings(m_a3.Lines);

slist.Add('[Q_'+inttostr(i)+'_Answ4]');

slist.AddStrings(m_a4.Lines);

slist.Add('[Q_'+inttostr(i)+'_CorAns]');

slist.Add(j);

slist.SaveToFile(ExtractFilePath(Application.Exename)+'test.txt',tencoding.UTF8);

slist.free;

showmessage('Тест создан.');

ftest.close;

end;

procedure Tftest.btn_nextClick(Sender: TObject);

var j:string;

begin

if (m_question.Text='') or (m_a1.Text='') or (m_a2.Text='') or

(m_a3.Text='') or (m_a4.Text='') or (le_name.text='') then begin showmessage('Некоторые поля не заполнены.'); exit; end;

if rg.ItemIndex=-1 then begin showmessage('Не отмечен правильный вариант.'); exit; end;

case rg.itemindex of

0: j:='1';

1: j:='2';

2: j:='3';

3: j:='4'; end;

if btn_next.Tag=0 then begin

slist.add('[Название теста]');

slist.Add(le_name.text);

Продолжение приложения А

btn_next.Tag:=1; end;

slist.Add('[Question_'+inttostr(i)+']');

slist.AddStrings(m_question.Lines);

slist.Add('[Q_'+inttostr(i)+'_Answ1]');

slist.AddStrings(m_a1.Lines);

slist.Add('[Q_'+inttostr(i)+'_Answ2]');

slist.AddStrings(m_a2.Lines);

slist.Add('[Q_'+inttostr(i)+'_Answ3]');

slist.AddStrings(m_a3.Lines);

slist.Add('[Q_'+inttostr(i)+'_Answ4]');

slist.AddStrings(m_a4.Lines);

slist.Add('[Q_'+inttostr(i)+'_CorAns]');

slist.Add(j);

inc(i);

m_question.clear;

m_a1.clear; m_a2.clear;

m_a3.clear; m_a4.clear;

rg.ItemIndex:=-1;

end;

procedure Tftest.FormCreate(Sender: TObject);

begin

slist:=tstringlist.Create;

i:=1;

m_question.clear;

m_a1.clear; m_a2.clear;

m_a3.clear; m_a4.clear;

le_name.clear; end; end.

Приложение В

(Рекомендуемое)

Код мобильного приложения «Лекции АРК»

var

fmain: Tfmain;

implementation

{$R *.fmx}

uses ulect, utest;

procedure Tfmain.btn_lectClick(Sender: TObject);

var i:integer;

begin

p_path.Visible:=true;

p_path.Tag:=1;

l_path.Text:='Введите путь до каталога с лекциями';

end;

procedure Tfmain.btn_okClick(Sender: TObject);

var

folders: TStringDynArray;

begin

if e_path.Text='' then begin showmessage('Введите путь.'); exit; end;

folders:=TDirectory.GetDirectories(e_path.text);

AddListItem(folders);

p_path.Visible:=false;

end;

procedure Tfmain.AddListItem(list: array of string);

var

c: integer;

LItem: TListBoxItem;

Дата добавления: 2015-10-13