[Scorpuha]

собственно есть форма с накиданными на нее dbedit, database, table1, datasourse, dbgrid1 и кнопка button. Вроде все связано. таблицы созданы. хотелось бы что бы при нажатии кнопки данные переносились в таблицу и отображались в dbgrid1. но вот незадача при нажатии кнопки выдает ошибку как на картинке. дополнительно поставил dbnavigator, с его помощью все работает.
вот код на кнопку.

Код:

procedure TForm2.Button1Click(Sender: TObject);
begin
Form2.DBGrid1.DataSource.DataSet.Append; 
Form2.DBGrid1.DataSource.DataSet.FieldByName('Shortname').AsString:=DBEdit1.Text;
Form2.DBGrid1.DataSource.DataSet.FieldByName('Longname').AsString:=DBEdit2.Text;
Form2.DBGrid1.DataSource.DataSet.FieldByName('Izmer').AsString:=DBEdit3.Text;
Form2.DBGrid1.DataSource.DataSet.FieldByName('Price').AsString:=DBEdit4.Text;
Form2.DBGrid1.DataSource.DataSet.FieldByName('Manufacture').AsString:=DBEdit5.Text;
Form2.DBGrid1.DataSource.DataSet.FieldByName('GOST').AsString:=DBEdit6.Text;
Form2.DBGrid1.DataSource.DataSet.Post;


end;

[Aristarh Dark]

Попробуй сделать так:

Код:

...
Form2.DBGrid1.DataSource.DataSet.FieldByName('Shortname').Value:=DBEdit1.Text;
...

[Scorpuha]

теперь вот такая ошибка. но остановилась прога на строке

Код:

Form2.DBGrid1.DataSource.DataSet.FieldByName('Manufacture').Value:=DBEdit5.Text;

[M.A.D.M.A.N.]

И что непонятно из этого сообщения?

[Scorpuha]

смысл сообщения понятен, а вот чо делать дальше ...

[Mrak]

Код:

try
  Form2.DBGrid1.DataSource.DataSet.FieldByName('Manufacture').Value:=StrToFloat(DBEdit5.Text);
except
  showmessage('Возможно, поле содержит данные не вещественного типа');
end;

))

[Scorpuha]

наверное я уже достал своими вопросами, но после того как я заменил строку

Код:

Form2.DBGrid1.DataSource.DataSet.FieldByName('Manufacture').Value:=DBEdit5.Text;

на строку написанную вами

Код:

Form2.DBGrid1.DataSource.DataSet.FieldByName('Manufacture').Value:=StrToFloatF(DBEdit5.Text, ffFixed, 6, 2);

при компиляции выдает ошибку
[Error] Unit2.pas(62): Undeclared identifier: 'StrToFloatF'

[Mrak]

извините, перепутал с обратной операцией)
просто strtofloat без параметров

[xxbesoxx]

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

собственно есть форма с накиданными на нее dbedit, database, table1, datasourse, dbgrid1 и кнопка button. Вроде все связано. таблицы созданы. хотелось бы что бы при нажатии кнопки данные переносились в таблицу и отображались в dbgrid1. но вот незадача при нажатии кнопки выдает ошибку как на картинке. дополнительно поставил dbnavigator, с его помощью все работает.
вот код на кнопку.

Код:

procedure TForm2.Button1Click(Sender: TObject);
begin
Form2.DBGrid1.DataSource.DataSet.Append; 
Form2.DBGrid1.DataSource.DataSet.FieldByName('Shortname').AsString:=DBEdit1.Text;
Form2.DBGrid1.DataSource.DataSet.FieldByName('Longname').AsString:=DBEdit2.Text;
Form2.DBGrid1.DataSource.DataSet.FieldByName('Izmer').AsString:=DBEdit3.Text;
Form2.DBGrid1.DataSource.DataSet.FieldByName('Price').AsString:=DBEdit4.Text;
Form2.DBGrid1.DataSource.DataSet.FieldByName('Manufacture').AsString:=DBEdit5.Text;
Form2.DBGrid1.DataSource.DataSet.FieldByName('GOST').AsString:=DBEdit6.Text;
Form2.DBGrid1.DataSource.DataSet.Post;


end;

Конечно будет ошибка ! Потому что вы пользуетесь DBEdit это компоненту есть свойство .... DataSource и DataField и потом на кнопке пишите

Код:

  if Dm.qrProduct.Modified then
  DM.qrProduct.Post;

Вы пользуетесь DBEdit ! Если бил простои Edit то да .