прога тест

[hitori]

стартовое количество правильных и неправильных ответов

[ImmortalAlexSan]

обнуление переменных, отвечающих за правильные и неправильные ответы.

[neprogrammist]

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

обнуление переменных, отвечающих за правильные и неправильные ответы.

ага, понятно

[neprogrammist]

я непонял кое что (вопросы в коде)

var
  Form1: TForm1;
  verno:boolean;
  Questions:array [1..kol_vop] of string;
  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]:='';
Memo1.Text:=Questions[1];
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 begin \\ а где сам ответ вписывать??
inc(right); \\ нужно чтобы при нажатии на "ответ" варианты вопросов обновлялись , как это делается ?
inc(wrong);
end;
//второй вопрос
If i=2 then
If RadioButton2.Checked=true then begin
inc(right);
inc(wrong);
end;
If i=3 then
If RadioButton2.Checked=true then begin
inc(right);
inc(wrong);

[dmitriegorovih]

Вот набрас приметивненький тест вобще я писал чтоб можно файле в определённом хранить тесты и ответы.

[neprogrammist]

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

[ex.cluz]

Есть отличный пример создания проги для тестирования.
Смотрите последнюю главу в книге М.Фленова "Библия Delphi". Там с самого начала и по шагам создается весь проект с обильными комментариями по ходу кодинга. Рекомендую!

[dmitriegorovih]

Вот набрас приметивненький тест вобще я писал чтоб можно файле в определённом хранить тесты и ответы.
Вложения Тест.rar (431.7 Кб, 1 просмотров)

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

[neprogrammist]

Сообщение от ex.cluz

Есть отличный пример создания проги для тестирования.
Смотрите последнюю главу в книге М.Фленова "Библия Delphi". Там с самого начала и по шагам создается весь проект с обильными комментариями по ходу кодинга. Рекомендую!

видел я там пример этот(спутник зеили), тест состоял из вопроса одного и 2х ответов, никаких подсчётов функций, ничего полезного для учебки, а книга хорошая, обясняется нормально

[ex.cluz]

видел я там пример этот(спутник зеили), тест состоял из вопроса одного и 2х ответов, никаких подсчётов функций, ничего полезного для учебки, а книга хорошая, обясняется нормально

Это в каком издании? Смотрите второе, там действительно стоящий пример!


Добавлено позже:

Исходники могу выложить.