тест, редактор

label1.Caption:='1. На какие системы счисления подразделяются все системы счисления:';
RadioGroup1.Items.Clear;
RadioGroup1.Items.Add('Позиционные, цифровые, непозиционные');
RadioGroup1.Items.Add('Позиционные, алфавитные, непозиционные;');
RadioGroup1.Items.Add('Позиционные, непозиционные ;');
RadioGroup1.Items.Add('Позиционные, непозиционные, алфавитные, цифровые;');
RadioGroup1.Items.Add('Позиционные, цифровые;');
key:=3;
ch:=False;
while ch=false do Application.ProcessMessages;
label1.Caption:='2. Продолжите числовой ряд:2, 5, 8, 11, ...:';
RadioGroup1.Items.Clear;
RadioGroup1.Items.Add('15;');
RadioGroup1.Items.Add('12;');
RadioGroup1.Items.Add('16;');
RadioGroup1.Items.Add('13;');
RadioGroup1.Items.Add('14;');
key:=5;
ch:=False;
while ch=false do Application.ProcessMessages;
label1.Caption:='3. Информация - это…:';
RadioGroup1.Items.Clear;
RadioGroup1.Items.Add('это сведения об объектах и явлениях окружающей среды, их параметрах, свойствах и состоянии, которые воспринимают информационные системы (живые организмы, управляющие машины и др.) в процессе жизнедеятельности и работы');
RadioGroup1.Items.Add('это сообщения ');
RadioGroup1.Items.Add('это изучение процессов и явлений');
RadioGroup1.Items.Add('понимается как, не любые сообщения, передаваемые в системе связи, а лишь те, которые уменьшают неопределенность у получателя информации');
RadioGroup1.Items.Add('это данные передаваемые в виде определенных символов');
key:=2;
ch:=False;
while ch=false do Application.ProcessMessages;

edit5.Text:=(' '+IntToStr(ball)+'/10');
N2.Enabled:=True;
RadioGroup1.Visible:=False;
label1.visible:=false;
label2.visible:=true;
label2.Caption:= 'Вы прошли тест и набрали, '+IntToStr(ball)+' из 10';
Tbl1.Append;



можно ли для этого зделать редактор? и как?

0

Хранить вопросы и ответы в отдельном файле, загружать их оттуда в RadioGroup.
Редактор - самый обычный, читать данные в любой компонент, позволяющий работать с текстом.

0

нужен редактор именно внутреннего кода прям в коде программы!

0