прога тест

[neprogrammist]

выложите пожалуйста если вам не составит труда, задач много и многие по разному делаются

[neprogrammist]

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

извеняюсь вот норм

спасибо, он довольно сложный и вопросов там много, можешь мой доделать, там хотябы на примере 2-3 вопроса чтобы прога работала а дальш я сам

[dmitriegorovih]

спасибо, он довольно сложный и вопросов там много, можешь мой доделать, там хотябы на примере 2-3 вопроса чтобы прога работала а дальш я сам

var
  Form1: TForm1;
  verno:boolean;
  Questions:array [1..kol_vop] of string;
  Otvet :array [1..kol_vop,1..4] of string // где 4 означает максимальное количество ответов
  right,wrong:integer;
  endl:byte;
  i:integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
i:=1;
right:=0;
wrong:=0;
//Здесь сам заполняешь вопросы которые тебе нужны и соответственно напиши там варианты ответов А, B, C и D
Questions[1]:='Для чего нужен Делфи?';
Questions[2]:='Структура делфи -';
Questions[3]:='';
Questions[4]:='';
Questions[5]:='';
Questions[6]:=''; 
Questions[7]:='';
Questions[8]:='';
Questions[9]:='';
Questions[10]:='';
otvet[1,1]:=''; // вписывай ответы
otvet[1,2]:='';
otvet[1,3]:='';
otvet[1,4]:='';
otvet[2,1]:='';
otvet[2,2]:='';
otvet[2,3]:='';
otvet[2,4]:='';
Memo1.Text:=Questions[1];
radiobutton1.caption:=otvet[1,1];
radiobutton2.caption:=otvet[1,2];
// и так далее
end;

procedure TForm1.Button1Click(Sender: TObject);
Var j:integer; // удали попробуй 
begin
If i=kol_vop+1 then
begin
showmessage('Тест окончен');
exit;
end;
//первый вопрос
If i=1 then
//здесь вписывай нужный тебе радиобаттон, который отвечает за правильный вариант вопроса
If RadioButton1.Checked=true then
inc(right)
else 
inc(wrong);
//второй вопрос
If i=2 then
If RadioButton2.Checked=true then
inc(right)
else
inc(wrong);
If i=3 then
If RadioButton2.Checked=true then
inc(right)
else
inc(wrong);
...
//вконце поставишь вот это
inc(i);
memo1.lines.add(Questions[i]);
radiobutton1.caption:=otvet[i,1];
radiobutton1.caption:=otvet[i,2];
radiobutton1.caption:=otvet[i,3];
radiobutton1.caption:=otvet[i,4];

[ex.cluz]

Вот исходники (в архиве две папки, в одной программа с помощью которой тесты создаются и редактируются, в другой можно открыть созданный тест и пройти его).
Но вам, я так понимаю, будет сложно разобраться. Но я в вас верю

[neprogrammist]

спасибо, но код для меня сложный, нет времени его разбирать, доделайте пожалуйста мой код, если возможно такое