About case block

[ariben]

Thanks for a code.
I carbon copied the code. But I came across 'ACCESS VIOLATION'.
I need to rework.

[Zvoni]

Thanks for a code.
I carbon copied the code. But I came across 'ACCESS VIOLATION'.
I need to rework.

Code: Pascal  [Select][+][-]

1.     //Somewhere above
2.     Const
3.        Oprt1:Array[0..2] Of String=('AND','OR','AND NOT');
4.      
5.     procedure TForm1.RadioGroup1Click(Sender: TObject);
6.     begin    
7.        If RadioGroup1.ItemIndex>-1 Then
8.            Edit1.Text := Oprt1[RadioGroup1.ItemIndex]; // added
9.     end;

[ariben]

Thanks for a code.
I carbon copied the code. But I came across 'ACCESS VIOLATION'.
I need to rework.

Code: Pascal  [Select][+][-]

1.     //Somewhere above
2.     Const
3.        Oprt1:Array[0..2] Of String=('AND','OR','AND NOT');
4.      
5.     procedure TForm1.RadioGroup1Click(Sender: TObject);
6.     begin    
7.        If RadioGroup1.ItemIndex>-1 Then
8.            Edit1.Text := Oprt1[RadioGroup1.ItemIndex]; // added
9.     end;

Thank you very much for a code. This works fine if I search a single word.
But access violation takes places as I select the operator.

[cdbc]

Hi
Have you by any chance, more radiobuttons than slots in your array?!?
The count of both must match.
Regards Benny

[ariben]

Hi
Have you by any chance, more radiobuttons than slots in your array?!?
The count of both must match.
Regards Benny

Thank you very much for your advice. It's time to go to the bed.
I'll try this tomorrow.

[ariben]

Thanks, Now I'm having heavy flu, too sick to try your advice.

[ariben]

Hi
Have you by any chance, more radiobuttons than slots in your array?!?
The count of both must match.
Regards Benny

Thank you. But nothing changed.