Search options

Ув. Дмитрий. Как изменить цвет текста в чекбоксе при условии? Не получается. Помогите пожалуйста. Можете показать на примере исправленного вами проекта в посте 20?
На Form1 имеется Checkbox1, 2, 3 и 4. Вот на примере этого скрипта.

procedure Form1_CheckBox4_OnClick (Sender: TObject);
var
a: string;
begin
      if Form1.CheckBox4.Checked then
         begin
               Form1.Edit5.Value:= StrToInt(SQLExecute('Select id from answers where answer='''+Form1.ComboBox4.Text+''' and answers.id_questions='+IntToStr(Form1.ComboQuestion.dbItemID)));
               Form1.ComboAnswer.dbItemID:= StrToInt(Form1.Edit5.Text);
               a:= SQLExecute('select answer from answers where answers.id_questions='+IntToStr(Form1.ComboQuestion.dbItemID)+' and answers.correct = 1');

               if a = Form1.ComboBox4.Text then
                  begin
                        Form1.CheckBox4.Color:= clGreen;
                        Form1.Label1.Caption:= 'Правильно!';
                        Form1.Label1.Visible:= True;
                  end else
                  begin
                        Form1.CheckBox4.Color:= clRed;
                        Form1.Label1.Caption:= 'Не правильно!';
                        Form1.Label1.Visible:= True;
                  end;

               Form1.bPause.Click;
               SQLExecute('INSERT INTO exam (id_students, id_questions, id_answers) VALUES ('+Form1.ComboStudent.sqlValue+', '+Form1.ComboQuestion.sqlValue+', '+Form1.ComboAnswer.sqlValue+')');
               Form1.Button1.Click;
               Form1.bStart1.Click;
               Form1.GroupBox2.Enabled:= False;
         end;
end;                                         

Спасибо заранее.

can you attach your project?

Извините за беспокойствие, не заметил.

Dear Admin.
Would you like to write the new features in latest version 4.7?

ok. thanks for help.

thanks for reply jean.brezhonek.
I have a *.wav file, which is in my local folder of project. I just want it to be played when an even occurs. Your example is when the file is stored in database but mine is in my local folder of project. Can you give me a simple example?

Спасибо.
1. А чем отличается А от Б?
А. SQLExecute('INSERT INTO exam (id_students, id_questions, id_answers) VALUES (' + IntToStr(Form1.ComboBox6.dbitemid) + ', ' + IntToStr(Form1.ComboBox1.dbitemid) + ', '  + IntToStr(Form1.ComboBox1.dbitemid) + ')');
Б. SQLExecute('INSERT INTO exam (id_students, id_questions, id_answers) VALUES ('+Form1.ComboStudent.sqlValue+', '+Form1.ComboBox1.sqlValue+', '+Form1.ComboAnswer.sqlValue+')');

2. В прикрепленном файле имеется проект. Нажимаем начать тест, вводим имя и при входе в Form1  выдает ошибку List index out of bounds (1). В чем проблема не могу понять. Помогите.
Спасибо заранее.