[valenina]

У меня на форме11 естькнопка .. при нажатии должна рассчитатся формула для которой данные берутся из формы 12 (из Edit22 Edit 24) как правильно написать данную формулу...?
Вот. часть процедуры.. (она не правильная) :

procedure TForm11.Button1Click(Sender: TObject);
var a:integer;
begin
a:=Form12.Edit22.Tag+Form12.Edit24.Tag;

[NIch]

Ничего не понятно, но смю предположить, что прочто не можешь получить данные с другой формы...
Просто пропиши ее в uses первой...

Вот. часть процедуры.. (она не правильная)

А что не правильно???

как правильно написать данную формулу...?

Какую формулу???

[valenina]

Эта працедура не работает.. Получается я из Формы12 беру данные для формулы...которая считается в Форме 11.. когда расчитываю программа выдает ошибку и выделяет синей строкой строчку Form11.shoumodal.

Код:

(procedure TForm11.Button1Click(Sender: TObject);
var a:integer;
begin
a:=Form12.Edit22.Tag+Form12.Edit24.Tag;
DBEdit3.Text:=inttostr (a);   )

Admin: Пользуемся тегами!

И Еще, формула эта вообще не считает.. в поле DBEdit3 прописывается 0

[Mad programmer]

Св-во Tag=0 у обоих Edit-ов.
Я тебя правильно понял? Ты вводишь данные в Edit и эти значения тебе надо использовать в формуле?

[Black Raider]

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

расчитываю программа выдает ошибку и выделяет синей строкой строчку

И Еще, формула эта вообще не считает.. в поле DBEdit3 прописывается 0

Что за ошибку?

формула:

Код:

a:=strtoint(Form12.Edit22.Text)+strtoint(Form12.Edit24.Text);
DBEdit3.Text:=inttostr (a);

[valenina]

Сообщение от Mad programmer

Св-во Tag=0 у обоих Edit-ов.
Я тебя правильно понял? Ты вводишь данные в Edit и эти значения тебе надо использовать в формуле?

Да правильно. ЗначениЯ мне надо использовать в формуле, которая пишется в другой Форме..! не знаю что поставить после Edit. Tag поставила наобум...

[lmikle]

Поставить StrToInt(Form12.Edit22.Text)

[valenina]

Спасибо огромное, сработало..!!!!
Надо было каждый компонент по отдельности записать...

[valenina]

Я дополнила формулу и теперь моя процедура выглядет след образом:

Код:

procedure TForm11.Button1Click(Sender: TObject);
var a,b,c:integer;
begin
a:=strtoint(Form12.Edit22.Text)+strtoint(Form12.Edit24.Text);
b:=a*Strtoint(Edit2.Text)+strtoint(Edit4.Text);
DBEdit1.Text:=floattostr((1.1*(DataModule3.Kod_DTable1.FieldByName('D_Ёмкости').AsFloat*3.14*DataModule3.Kod_BTable1.FieldByName('B_Стенки').AsFloat*DataModule3.Kod_HTable1.FieldByName('H_Ёмкости').AsFloat+2*(3.14*DataModule3.Kod_DTable1.FieldByName('D_Ёмкости').AsFloat*DataModule3.Kod_DTable1.FieldByName('D_Ёмкости').AsFloat)/4*DataModule3.Kod_BTable1.FieldByName('B_Стенки').AsFloat)*1.6*DataModule3.Kod_STable1.FieldByName('S_Стеклопластика').AsFloat));//+floattostr((strtofloat(Edit2.Text)*2)+strtofloat(Edit4.Text));
 //DBEdit2.Text:=DBEdit1.Text+floattostr((strtofloat(Edit2.Text)*a)+strtofloat(Edit4.Text));
   c:=b+strtoint(DBEdit1.Text);
  DBEdit3.Text:=inttostr (c);

Но когда я пытаюсь расчитать возникает след ошибка: "is not a valid integer value"

одскажите пожалуйста в чем дело?

[Mad programmer]

c:=b+strtoint(DBEdit1.Text);
с-integer;
в DBEdit1.Text храниться Float.
P.S. Вместо Edit используй SpinEdit и не надо будет strtoint делать....

[valenina]

Сообщение от Mad programmer

c:=b+strtoint(DBEdit1.Text);
с-integer;
в DBEdit1.Text храниться Float.
P.S. Вместо Edit используй SpinEdit и не надо будет strtoint делать....

SpinEdit-это компонент?
Даже если я переделываю процедуру:

Код:

procedure TForm11.Button1Click(Sender: TObject);
var a,b,c:real;
begin
a:=strtofloat(Form12.Edit22.Text)+strtoint(Form12.Edit24.Text);
b:=a*Strtofloat(Edit2.Text)+Strtofloat(Edit4.Text);
DBEdit1.Text:=floattostr((1.1*(DataModule3.Kod_DTable1.FieldByName('D_Ёмкости').AsFloat*3.14*DataModule3.Kod_BTable1.FieldByName('B_Стенки').AsFloat*DataModule3.Kod_HTable1.FieldByName('H_Ёмкости').AsFloat+2*(3.14*DataModule3.Kod_DTable1.FieldByName('D_Ёмкости').AsFloat*DataModule3.Kod_DTable1.FieldByName('D_Ёмкости').AsFloat)/4*DataModule3.Kod_BTable1.FieldByName('B_Стенки').AsFloat)*1.6*DataModule3.Kod_STable1.FieldByName('S_Стеклопластика').AsFloat));//+floattostr((strtofloat(Edit2.Text)*2)+strtofloat(Edit4.Text));
    c:=b+Strtofloat(DBEdit1.Text);
  DBEdit3.Text:=floattostr (c);

Admin: Последнее предупреждение, при рецедиве БАН.

она все равно выдает ошибку

[Black Raider]

В одном из Edit'ов пустое значение!
не 0 а именно пустая строка.

[Mad programmer]

А сейчас какую ошибку выдает? В базе данных точно все значения возможно преобразовать в real?