[Crocodil]

Здравствуйте!
Возникла необходимость взяться за Delphi. Приходится осваивать. Не могу справиться с проблемой: Есть база данных в Access. Поля: счётчик, Артикул и Наименование. Каждому Артикул соответствует своё Наименование. Вообщем DBGrid отоброжает всё благополучно. Поиск прописан следующим образом:

PHP код:

procedure TForm2.dbgrid1KeyPress(Sender: TObject; var Key: Char);
begin
artikul:=artikul+key;
dbgrid1.DataSource.DataSet.Locate('Артикул',artikul,[loPartialKey]);
StatusBar1.Panels.Items[0].Text:='Поиск:'+artikul;
end; 


Поиск ведётся по Артикулу. Далее надо чтобы при нажатии на кнопку "Далее" проводилась проверка //если соответствующее найденному артикулу наименование = 'гвозди' - тогда открыть форму 2, если соответствующее данному артикулу наименование = 'гайки' - тогда открыть форму 3, и т.д.
Так вот моих познаний не хватает для того чтобы прописать значение поля из выделенной строки как строковую переменную.
Подскажите, пожалуйста, как это сделать. Или может я не в том направлении ищу?

[stil]

Код:

dbgrid1.DataSource.DataSet.FieldByName('имяполя').AsString;
или
dbgrid1.DataSource.DataSet.Fields[номерполя].AsString;

[Crocodil]

Спасибо! Буду пробовать!

[Crocodil]

Уважаемый Stil, что-то не выходит каменный цветок

Код:

procedure TForm2.dbgrid1KeyPress(Sender: TObject; var Key: Char);
begin
obozn:=obozn+key;
dbgrid1.DataSource.DataSet.Locate('Обозначение',obozn,[loPartialKey]);
StatusBar1.Panels.Items[0].Text:='Поиск:'+obozn;
end;

procedure TForm2.Button3Click(Sender: TObject);

var naim: string;
begin
naim:=dbgrid1.DataSource.DataSet.FieldByName('Наименование').AsString;
if naim = 'Корпус сверла Shark Drill HP4'
then
  begin
    Hide;
    Form4.Show;
    Exit;
  end;
if naim = 'Пластина сверла Shark Drill HP4'
then
  begin
    Hide;
    Form5.Show;
    Exit;
  end;
end;

Ошибок никаких не выводит, но не работает, формы не открываются.
Не могу понять, в чём дело

[hardcor4uk]

Попробуй дописать функцию Trim.
может быть из за какого нить пробела она и не хочет сравнивать;
naim:=Trim(dbgrid1.DataSource.DataSet.FieldByName( 'Наименование').AsString);
или попробуй
naim:=dbgrid1.DataSource.DataSet.FieldByName('Наим енование').value;