Выходит ошибка связанная с dbedit

@Alyua · Регистрация: 04.04.2015

Студворк — интернет-сервис помощи студентам

В чем может быть ошибка?
Пока не добавляла dbedit, все работало идеально,заносилось,рассчитывала, добавила новую форму где можно редактировать результаты,затем в главной форме вместо лейблов добавила dbedit,чтобы выводил результат.
Код Расчета:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
procedure TForm3.Action4Execute(Sender: TObject);
begin
EditRecordForm.ShowModal;
end;
 
procedure TForm3.Button1Click(Sender: TObject);
begin
R:=StrToFloat(edit1.name);
a:=StrToFloat(edit2.name);
H:=StrToFloat(edit3.text);
G:=StrToFloat(edit4.text);
asect:=StrToFloat(edit5.text);
H1:=StrToFloat(edit6.text);
h11:=StrToFloat(edit7.text);
Kf:=StrToFloat(edit8.text);
l:=StrToFloat(edit9.text);
 
Lhord:=2*R*(sin(degtorad(a/2)));//считаем
hh:=R-R*(cos(degtorad(a/2)));
Ftrg:=0.5*(H-hh)*Lhord;
Fsect:=asect*((R*R)/2);
Fsegm:=Fsect-Ftrg;
qv:=G*Fsegm;
L1:=575*(H1-h11)*(sqrt(H1*Kf));
Q:=Kf*l*(((H1*H1)-(h11*h11))/L1);
 
dbedit1.Text:=FloatToStr(roundto(Lhord,-2));
dbedit2.Text:=FloatToStr(roundto(hh,-2));
dbedit3.Text:=FloatToStr(roundto(Ftrg,-3));
dbedit4.Text:=FloatToStr(roundto(Fsect,-3));
dbedit5.Text:=FloatToStr(roundto(Fsegm,-3));
dbedit6.Text:=FloatToStr(roundto(qv,0));
dbedit7.Text:=FloatToStr(roundto(L1,-1));
dbedit8.Text:=FloatToStr(roundto(Q,-5));
end;
 
 
procedure TForm3.Button2Click(Sender: TObject);
begin
DataModule4.BookTable.Insert;
DataModule4.BookTable.FieldByName('Lhord').AsFloat:=StrToFloat(dbedit1.Text);
DataModule4.BookTable.FieldByName('hh').AsFloat:=StrToFloat(dbedit2.Text);
DataModule4.BookTable.FieldByName('Ftrg').AsFloat:=StrToFloat(dbedit3.Text);
DataModule4.BookTable.FieldByName('Fsect').AsFloat:=StrToFloat(dbedit4.Text);
DataModule4.BookTable.FieldByName('Fsegm').AsFloat:=StrToFloat(dbedit5.Text);
DataModule4.BookTable.FieldByName('qv').AsFloat:=StrToFloat(dbedit6.Text);
DataModule4.BookTable.FieldByName('L1').AsFloat:=StrToFloat(dbedit7.Text);
DataModule4.BookTable.FieldByName('Q').AsFloat:=StrToFloat(dbedit8.Text);
DBGrid1.SetFocus;
 
end;

@Alyua · 29.06.2015, 21:15 **[ТС]**

Все спасибо,разобралась, не дала DBEdit Name.

@northener · 29.06.2015, 21:19

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

атем в главной форме вместо лейблов добавила dbedit

А в сообщении об ошибке говорится про TDBText, а не про TDBEdit.
В списке uses главнной формы есть слово DBCtrls?

@Alyua · 29.06.2015, 21:48 **[ТС]**

northener, все есть,все исправила)
а не знаете,почему ругается на BookTableDSDesigner? Прописываю удаление записи, датамодуль есть,бук табл есть, а десигнер не понимаю?

Delphi
1
2
3
4
5
6
7
8
procedure TForm3.Action5Execute(Sender: TObject);
begin
if Application.MessageBox(PChar('Вы действительно хотите удалить'
+DataModule4.BookTableDSDesigner.AsString), 'Внимание!!!',
MB_OKCANCEL)=id_OK then
DataModule4.BookTable.Delete;
 
end;

Новые блоги и статьи Все статьи Все блоги /
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .

@Alyua 0 / 0 / 0 Регистрация: 04.04.2015 Сообщений: 100
	29.06.2015, 21:15 [ТС]
	Все спасибо,разобралась, не дала DBEdit Name. 0

Выходит ошибка связанная с dbedit

Решение