поиск в таблице

[puma]

Таблица создается в Paradoxe,поля: Nazvan, Mesto - String.
На форме помещены компоненты: Edit, Button, Grid, RadioGroup.
RadioGroup имеет Items=' по названию'
'по местунахождению'

Необходимо, чтобы при выборе в RadioGroup Items, занеся в компонент Edit нужное название или место... выводились данные из таблицы.
что - то типа:


procedure TMain.RadioGroupClick(Sender: TObject);
begin
if radioGroup.ItemIndex=0 then
begin

DM.dz.FieldByName('Nzvanie').Displa yLabel:='Название';
end;
if radioGroup.ItemIndex=1 then
begin

DM.dz.FieldByName('Mesto').DisplayL abel:='Местонахож...';
end;


procedure TPoisc.Button1Click(Sender: TObject);
begin
With DataModule1.Q1 do begin
Close;
SQL.Add('Select * from Main');
SQL.Add('Where(Upper(Nazvanie) Like UPPer(:N))');
Prepare;
ParamByName('N').AsString:= '%' + (Edit1.Text) + '%';
Open;
end; end;

Подскажите, что нужно еще исправить.

[Stilet]

Мало что понял из вопроса, но похоже тебе нужно не простой эдит а DBEdit.

[mihali4]

Подскажите, что нужно еще исправить.

В принципе все верно. Только первую процедуру я бы предложил через
case radioGroup.ItemIndex of
...
А вот во второй явно не хватает
SQL.Clear; перед SQL.Add...
Очищать-то надо, иначе у вас там будет образовываться сборная солянка...
Или сделать одной строкой
SQL.Text:='Select * from Main Where (Upper(Nazvanie) Like UPPer(:N))';
Тогда SQL будет просто заменяться.
А DBEdit не нужен.

[puma]

Спасибо все получилось!!!!!