[turat86]

Приветфорумчики! компонент Radiobutton ошибку дает как реагировать эту ошибку.
Я записывал код кнопки "Поиск" так:

PHP код:

procedure TFindForm.BitBtn1Click(Sender: TObject);
 var i: integer;
 begin
for i:=1 to Radiobutton.recordcount-1 do
begin
 if RadioButton1.Checked then
begin
 Edit1.SetFocus;
 DataModule1.bookQuery.Active:=false;
DataModule1.bookQuery.Parameters.ParamByName('inv').Value:='%'+Trim(Edit1.Text)+'%';
  DataModule1.bookQuery.Active:=true;
    ResultForm.ShowModal;
   DataModule1.BookTable.Refresh;
   end;
   end;
   if RadioButton2.Checked then
begin
 DataModule1.bookQuery.Active:=false;
DataModule1.bookQuery.Parameters.ParamByName('bbk').Value:='%'+Trim(Edit1.Text)+'%';
  DataModule1.bookQuery.Active:=true;
    ResultForm.ShowModal;
   DataModule1.BookTable.Refresh;
end
  else begin
 ShowMessage('Такой запись не существует');
 datamodule1.bookTable.Active:=true;
 end;
   end;     
        end;

end. 


Но не получается. RadioButton ошибку дает. Как реагировать ошибку компонентов Radiobutton. Скажите пожалуйста! Заранее спасибо!

[TOJluK]

тут 1 на 0 поменяй

Код:

for i:=0 to Radiobutton.recordcount-1 do

Да и во вообще присмотрелся к коду, что- то тут не то совсем...
RecordCount - это св- во DataSet, причем тут RadioButton?

Да и еще первый if ты гоняешь в каком- то стремном цикле, второй if...else..end у тебя после цикла подвешен и насколько я понял один end; в конце лишний

[lmikle]

По моему, это вообще не код, а бред.
Ты русским языком скажи чего ты хочешь.

Впечатление, что ты хочешь сделать условие на разные поля, в зависимости от, того, какая из RadioButton'ов выбрана. Ну так это делается подругому - динамическое создание запроса.

Короче, четко и коротко опиши задачу на русском языке.