[killpretty]

Помогите,пожалуйста,не могу разобраться совсем,как в таблице сделать поле,которое бы вычисляло,например,сумму 2х других полей.Может кто знает?

[Winny]

С таблицами мало работал, но скорее всего принцип такой:

Код:

1	3 ячейка:=StrToInt(1-я ячейка у таблицы)+StrToInt(2-я ячейка у таблицы);

[moo2k]

Код:

1 2 3 4 5 6 7 8 9 10

var summa:integer; a:string b:string; begin a:=ячейка1; b:=ячейка2; summa:=StrToInt(a)+StrToInt(b); ShowMessage('Сумма= ' + IntToStr(summa)); end;

[The Shadow]

Вот рабочий пример со StringGrid'ом:

Код:

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

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, Grids; type   TForm1 = class(TForm)     StringGrid1: TStringGrid;     procedure FormCreate(Sender: TObject);     procedure StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer;       const Value: String);     procedure StringGrid1GetEditText(Sender: TObject; ACol, ARow: Integer;       var Value: String);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin with StringGrid1 do begin Cells[0, 0]:='0'; Cells[1, 0]:='0'; Cells[2, 0]:='0'; end; end; procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,   ARow: Integer; const Value: String); begin try StringGrid1.Cells[2, 0]:=IntToStr(StrToInt(StringGrid1.Cells[0, 0]) + StrToInt(StringGrid1.Cells[1, 0])); except end; end; procedure TForm1.StringGrid1GetEditText(Sender: TObject; ACol,   ARow: Integer; var Value: String); begin if ACol = 2 then Exit; try StrToInt(Value); except Value:='0'; end; StringGrid1.Cells[2, 0]:=IntToStr(StrToInt(StringGrid1.Cells[0, 0]) + StrToInt(StringGrid1.Cells[1, 0])); end; end.

В StringGrid'e должно быть три столбца, и одна строка, в Option - goEditing поставь True, и не забудь указать события OnCrete у формы, и события OnGetEditText и OnSetEditText у StringGrid'a

[killpretty]

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

С таблицами мало работал, но скорее всего принцип такой:

Код:

не уверена,что это будет работать в DBGrid...А автар у тебя симпатичненький

[killpretty]

Спасибо.Только проблемка.Мне надо для работы с DBGrid.

[Yurk@]

А ты не пробывала вынести эти поля в отдельную форму - там посчитать, а потом записать на место?
В некоторых случаях - это самый оптимальный вариант!

[Yurk@]

Попробуй это.
Надеюсь поможет (если я тебя правильно понял)

Отпишись!