Открытие формы изменить в БД

[kuzmich]

привет, всем! я создал форму для изменение данных. теперь хочу ее открыть, но не так как Form5.Show; , а что бы при выборе какой либо информации форма выходила, а если поля не выброна то должно выходить сообщение.
Я создал так, но не могу найти свою ошибку. Помогите.

Вот мой код:

procedure TForm2.EditClick(Sender: TObject);
begin
 if DBGrid1.DataSource.DataSet[''] then
 ShowMessage('Выберите запись!');
 Table1.Open;
 Form5.Show;
end;

[artemavd]

А что в результате выдает ваш код, который вы привели?

[kuzmich]

Выдает такую ошибку как - Query1: Field '' not found

[artemavd]

Вот, держи. Думаю, что это то, что тебе нужно.
P.S. Сделал за 5 минут

[Yurk@]

procedure TForm2.EditClick(Sender: TObject);
begin
 if DBGrid1.DataSource.DataSet.Fields[0].IsNull 
 then ShowMessage('Выберите запись!')
 else 
 begin
 Table1.Open;
 Form5.Show;
 end;
end;

[artemavd]

Yurk@

, автору уже даже исходник с примером выложили, а он его еще и не смотрел. Как же так

[kuzmich]

Сообщение от artemavd

Вот, держи. Думаю, что это то, что тебе нужно.
P.S. Сделал за 5 минут

что то я не понял с твоим исходником.

[artemavd]

Что именно там не понятно? Спрашивай.

[kuzmich]

Сообщение от Yurk@

procedure TForm2.EditClick(Sender: TObject);
begin
 if DBGrid1.DataSource.DataSet.Fields[0].IsNull 
 then ShowMessage('Выберите запись!')
 else 
 begin
 Table1.Open;
 Form5.Show;
 end;
end;

у меня не выводит диалоговое окно если я не выбераю запись. у меня выходить Form5 причем пустая

[artemavd]

Чего вы мудрите? В моем примере все выводится. И диалоговое окно, если запись не выбрана, и пустая форма если выбрана. Код Юрки не проверял, т.к. у меня другой немного.