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

i:=i+2;

if i>=sl.Count-2 then btn_next.Enabled:=false;

end; end;

procedure Tftest.FormShow(Sender: TObject);

var fn, filename:string;

begin

ftest.Tag:=0;

i:=1;

m_question.lines.Clear;

m_a1.lines.Clear;

m_a2.lines.Clear;

m_a3.lines.Clear;

m_a4.lines.Clear;

m_a1.FontColor:=TAlphaColorRec.Black;

m_a2.FontColor:=TAlphaColorRec.Black;

m_a3.FontColor:=TAlphaColorRec.Black;

m_a4.FontColor:=TAlphaColorRec.Black;

r_a1.IsChecked:=false;

r_a2.IsChecked:=false;

r_a3.IsChecked:=false;

r_a4.IsChecked:=false;

btn_next.Enabled:=true;

sl:=tstringlist.create;

sl.Clear;

fn:=ExtractFilePath(flect.e_path.Text);

filename:=fn+'test.txt';

sl.LoadFromFile(filename, tencoding.utf8);

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

e_name.Text:=sl[1];

i:=3;

summRAns:=0;

while sl[i]<>'[Q_1_Answ1]' do begin

m_question.Lines.Add(sl[i]);

inc(i); end;

inc(i);

while sl[i]<>'[Q_1_Answ2]' do begin

m_a1.Lines.Add(sl[i]);

inc(i); end;

inc(i);

while sl[i]<>'[Q_1_Answ3]' do begin

m_a2.Lines.Add(sl[i]);

inc(i); end;

inc(i);

while sl[i]<>'[Q_1_Answ4]' do begin

m_a3.Lines.Add(sl[i]);

inc(i); end;

inc(i);

while sl[i]<>'[Q_1_CorAns]' do begin

m_a4.Lines.Add(sl[i]);

inc(i); end;

inc(i);

corAns:=strtoint(sl[i]);

memo1.Lines.Add(inttostr(corAns));

j:=2;

i:=i+2; end;

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

procedure Tftest.r_a2Change(Sender: TObject);

begin

ftest.Tag:=2;

end;

procedure Tftest.r_a3Change(Sender: TObject);

begin

ftest.Tag:=3;

end;

procedure Tftest.r_a4Change(Sender: TObject);

begin

ftest.Tag:=4;

end;

procedure Tftest.sb_backClick(Sender: TObject);

begin

sl.Free;

btn_next.Enabled:=true;

p_dial.Visible:=false;

ftest.Close;

flect.wb_1.Navigate(l_path.Text);

sb_ok.Tag:=0;

memo1.Lines.Clear;

lb_correct_answ.Lines.Clear;

flect.Show;

end;

procedure Tftest.sb_okClick(Sender: TObject);

begin

btn_next.Enabled:=true;

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

p_dial.Visible:=false;

sb_ok.Tag:=1;

m_question.lines.Clear;

m_a1.lines.Clear;

m_a2.lines.Clear;

m_a3.lines.Clear;

m_a4.lines.Clear;

i:=3;

if strtoint(memo1.Lines[0])=1 then begin

m_a1.FontColor:=TAlphaColorRec.Green;

m_a1.Lines.Insert(0, 'Правильный ответ:'); end else

if strtoint(memo1.Lines[0])=2 then begin

m_a2.FontColor:=TAlphaColorRec.Green;

m_a2.Lines.Insert(0, 'Правильный ответ:'); end else

if strtoint(memo1.Lines[0])=3 then begin

m_a3.FontColor:=TAlphaColorRec.Green;

m_a3.Lines.Insert(0, 'Правильный ответ:'); end else

begin m_a4.FontColor:=TAlphaColorRec.Green;

m_a4.Lines.Insert(0, 'Правильный ответ:'); end;

while sl[i]<>'[Q_1_Answ1]' do begin

m_question.Lines.Add(sl[i]);

inc(i); end;

inc(i);

while sl[i]<>'[Q_1_Answ2]' do begin

m_a1.Lines.Add(sl[i]);

inc(i); end;

inc(i);

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