Запись результатов теста в txt

[Erick Cartman]

еще одна тема:
пишу тест, и хочу в конце поставить сохранение результатов теста [при нажатии Oк].

[W0LF]

Ну записуете, например, в ini:
1 {номер вопроса} = 1/0 {1 - правильный ответ, 0 - неправильный}
Смотря что вы имеете ввиду под "Результатами теста"... Что именно надо сохранить ? Или пишите все в лог, на форуме интересный модуль есть по работе с логом - mLog...

[Erick Cartman]

сохранить то что написано на 2м окне

[W0LF]

Смотря во что вы результат записывали, опишите все подробно, а то как помочь, если не знаем куда результат записан... Видимо там лейблы, но нужна конкретика...

[Erick Cartman]

var
Form4: TForm4;
f:TextFile;
fn:string;
pnx: byte;
implementation

uses Unit1;
const
N_LEV=4; // четыре уровня оценки
N_ANS=4; // четыре варианта ответов


var
level:array[1..N_LEV] of integer; // сумма, соответствующая уровню
mes:array [1..N_LEV] of string; // сообщение, соответствующее уровню
score:array[1..N_ANS] of integer; // балл за выбор ответа
summa:integer; // набрано очков
vopros:integer; // номер текущего вопроса
n_otv:integer; // число вариантов ответа
otv:integer; // номер выбранного ответа

{$R *.dfm}

procedure TForm4.FormActivate(Sender: TObject);
begin
ResetForm(Form4);
assignfile(f,fn);
{$I-}
reset(f);
{I+}
if IOResult=0 then
begin
Info (f, Label5) ; // прочитать и вывести информацию о тесте
GetLevel(f); // прочитать информацию об уровнях оценок
end;
end;
procedure TForm4.Button1Click(Sender: TObject);
begin
case Button1.tag of
0: begin
Button1.caption:='Дальше';
Button1.tag:=1;
RadioButton5.Checked:=TRUE;
// вывод первого вопроса
Button1.Enabled:=False;
ResetForm(Form4); summa:=0;
VoprosToScr(f,Form4,vopros)
end;
1:begin // вывод остальных вопросов
summa:=summa+score[otv];
RadioButton5.Checked:=TRUE;
Button1.Enabled:=False;
ResetForm(Form4);
if not eof(f)
then VoprosToScr(f,Form4,vopros)
else
begin
closefile(f);
Button1.caption:='Ok';
Form4.caption:='Результат';
Button1.tag:=2;
Button1.Enabled:=TRUE;
Itog(summa, Form4);
end;
end;
2: begin // завершение работы
Button1.tag:=0;
form1.Enabled:=true;
Form4.Close;
end;
end;
end;

procedure TForm4.RadioButtonClick(Sender: TObject);
begin
if sender = RadioButton1
then begin
otv:=1;
end
else if sender = RadioButton2
then begin
otv:=2;
end
else if sender = RadioButton3
then begin
otv:=3;
end
else begin
otv:=4;
end;
Button1.enabled:=TRUE;
end;

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...

Темы с вложениями вместо исходного кода, а также с неправильно оформленным кодом будут мгновенно закрываться, а нарушитель - получать нарушение №6 - "Нарушение правил форума" и штраф 6 очков.

Модератор

[W0LF]

Зачем эта форма разве она выводит результаты теста? Напиши мне в личку луче и включи, что бы тебе могли писать...

P.S.: Оформи код спец тегом "[CODE]", а то получишь от модеров))