Помогите создать тест....

[Vitaliyg_radio]

Народ, помогите создать тест. Он должен имет вопрос и варианты ответа (Radio Group) и в конце должен выводить результат...

[kommunist]

1)сколько вопросов должно быть в тесте?

2) что-то непонятно в написании программы или вообще нет кода?

[Vitaliyg_radio]

Должно быть 12 вопросов.

[kommunist]

http://www.programmersclub.ru/autorskie
посмотри там и исходники и экзэшники

[Vitaliyg_radio]

Да нет. мне нужен текст в котором используется компонент Radio group.

[kommunist]

вот тебе тест: test.txt- это файл откуда будут загружаться вопросы и ответы в программу.

там только три вопроса надеюсь остальные сам допишеш по такому же принципу.
а вот тебе и весь коддинг программы для этого файла.

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls,xpman;
type
TForm1 = class(TForm)
RadioGroup1: TRadioGroup;
Button1: TButton;
ListBox1: TListBox;
Label1: TLabel;
procedure form1oncreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
nomervern,kolvovrn,nomervopr,kolvopr,nomerstr:integer;
implementation
{$R *.dfm}
procedure TForm1.form1oncreate(Sender: TObject);
var kolvar,i:integer;
begin
listbox1.Items.LoadFromFile('test.txt');
label1.Caption:=listbox1.Items[1];
kolvar:=strtoint(listbox1.Items[2]);
radiogroup1.Items.Clear;
for i:= 1 to kolvar do begin
radiogroup1.Items.Add(listbox1.Items[3+i]);
end;
kolvopr:=strtoint(listbox1.Items[0]);
nomervern:=strtoint(listbox1.Items[3]);
kolvovrn:=0;
nomervopr:=1;
nomerstr:=kolvovrn+3;
end;
procedure TForm1.Button1Click(Sender: TObject);
var ocenka:real;
begin
if (radiogroup1.ItemIndex+1) = nomervern then begin
kolvern:=kolvern+1;
end;
if nomervopr= kolvopr then begin
ocenka:=kolvern*(5-1)/kolvopr+1;
messagedlg(' âàøà îöåíêà'+ floattostr(ocenka),mtinformation,[mbok],0);
form1.Close;
end;
if noomervopr<kolvopr then begin
nomervopr:=nomervopr+1;
label1.Caption:=listbox1.Items[2+nomerstr-1]);
nomervern:=strtoint(listbox1.ite[3+nomerstr-1);
radiogroup1.items.Add(listbox1.items[3+i+nomerstr-1]);
end;
nomerstr:=nomerstr+kolvovrn+3;
end;
end.

From artemavd: не надо оформлять код глупыми тэгами! Пользуйтесь тегом для оформления кода #. В следующий раз получите штраф за нарушение правил.

[zaripjan]

Сообщение от kommunist

http://www.programmersclub.ru/autorskie
посмотри там и исходники и экзэшники

спасибо большое)))))ты меня спас

[baster128]

Вот основа. Расставляй на нее радиобутоны.

[ex.cluz]

Кто поднял тему 2007 года?