DBGrid математические функции

@flouwjke · Регистрация: 11.04.2012

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

Помогите кто знает

создаю тблицу

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
procedure TForm1.FormCreate(Sender: TObject);
var
a,b,c:integer;
begin
 
with Table1 do
 
begin
 
DatabaseName:='dbdemos';
 
TableName:='mytest';
 
TableType:=ttParadox;
 
{Создать поля}
 
with FieldDefs do
 
begin
 
Add('Диапозон частот, f (Гц)', ftFloat, 0, true);
Add('Опасный режим работы', ftString, 25, true);
Add('U(с+ш), дБ', ftFloat, 0, true);
Add('Uш, дБ', ftFloat, 0, true);
Add('Uc1, дБ', ftFloat, 0, false);
Add('U1изм, мкВ', ftFloat, 0, true);
Add('U2изм, мкВ', ftFloat, 0, true);
Add('L, м', ftFloat, 0, true);
Add('Kп, дБ/м', ftFloat, 0, false);
Add('R, м', ftFloat, 0, false);
 
end;
 
 
with IndexDefs do
 
begin
 
Add('I_Name', 'Диапозон частот, f (Гц);Опасный режим работы;U(с+ш), дБ;Uш, дБ;Uc1, дБ;U1изм, мкВ;U2изм, мкВ;L, м;Kп, дБ/м;R, м;',
 [ixPrimary, ixUnique]);
 
end;
 
CreateTable;
Active:=true;
 
end;
end;

К примеру в 3 и 4 столбцах записаны значения, любые, необходимо их сложить и вывести к примеру в 5 столбец. И реализовать это необходимо для N строк. если не сложно покажите пример

дальше сам по образу и подобию

Просто необходимо эти расчеты перенести в таблицу

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
a:=StrToFloat(Edit6.Text);
 b:=StrToFloat(Edit11.Text);
 c:=StrToFloat(Edit16.Text);
 d:=StrToFloat(Edit21.Text);
 l1:=StrToFloat(Edit26.Text);
  uc1:=20*log10(sqrt((a/10)*ln(10)-(b/10)*ln(10)));
  p1:=uc1-b;
  kp1:=(20*log10(c/d))/l1;
  r1:=(p1+10)/kp1;
  if edit6.Text='1' then
     r1:=p1/kp1;
  Label19.Caption:=FloatToStr(round(r1*1000)/1000);
  Label24.Caption:=FloatToStr(round(uc1*1000)/1000);
  Label29.Caption:=FloatToStr(round(kp1*1000)/1000);

Добавлено через 3 часа 16 минут
никто не знает?

@_Dimon_ · 05.05.2012, 23:31

Что-то вроде этого:

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
52
53
54
55
56
57
58
59
procedure TForm1.FormCreate(Sender: TObject);
var
 i: integer;
begin
 
with Table1 do
begin
 DatabaseName:='dbdemos';
 TableName:='mytest';
 TableType:=ttParadox;
 OnCalcFields := Table1CalcFields;
 
 {Создать поля}
 
with FieldDefs do
begin
 Add('Диапозон частот, f (Гц)', ftFloat, 0, true);
 Add('Опасный режим работы', ftString, 25, true);
 Add('U(с+ш), дБ', ftFloat, 0, true);
 Add('Uш, дБ', ftFloat, 0, true);
 Add('Uc1, дБ', ftFloat, 0, false);
 Add('U1изм, мкВ', ftFloat, 0, true);
 Add('U2изм, мкВ', ftFloat, 0, true);
 Add('L, м', ftFloat, 0, true);
 Add('Kп, дБ/м', ftFloat, 0, false);
 Add('R, м', ftFloat, 0, false);
 
for i := 0 to FieldDefs.Count-1 do
 FieldDefs[i].CreateField(Table1);
 
CalcField := TFloatField.Create(Table1);
 
 with CalcField do
 begin
  FieldName := 'CalcField';
  Calculated := True;
  DataSet := Table1;
  Name := Table1.Name + FieldName;
  Table1.FieldDefs.Add(Name, ftFloat, 0, false);
 end;
end;
 
with IndexDefs do
begin
 Add('I_Name', 'Диапозон частот, f (Гц);Опасный режим работы;U(с+ш), дБ;Uш, дБ;Uc1, дБ;U1изм, мкВ;U2изм, мкВ;L, м;Kп, дБ/м;R, м;',
 [ixPrimary, ixUnique]);
end;
 
CreateTable;
 
Active:=true;
end;
end;
 
procedure TForm1.Table1CalcFields(DataSet: TDataSet);
begin
 // сдесь сам напиши, что тебе надо вычислить
 Dataset['CalcField'] := Dataset['U(с+ш), дБ'] * Dataset['Uш, дБ'];
end;

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    Table1: TTable;
    DBGrid1: TDBGrid;
    procedure FormCreate(Sender: TObject);
    procedure Table1CalcFields(DataSet: TDataSet);
//..........
 private
    CalcField : TFloatField;
  public
    { Public declarations }
  end;

Добавлено через 2 минуты
Но скажи одну вещь - нафига тебе все это в рантайме создавать, неужели нельзя сразу на форме в обьекте Table1 добавить нужные поля (в том числе и вичисляемые)?

@flouwjke · 06.05.2012, 12:44 **[ТС]**

Но скажи одну вещь - нафига тебе все это в рантайме создавать, неужели нельзя сразу на форме в обьекте Table1 добавить нужные поля (в том числе и вичисляемые)?

Не совсем понял

Таблица мне нужна только для бесконечного ввода строк данных

Новые блоги и статьи Все статьи Все блоги /
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .