linking with sum

[filipe26]

Hi i have a Tstringgrid with a currency fields and a Tlabel.What i want to do is when i change one currency field of the stringgrid calculates imediatly the label with the sum of all fields.Thanks

 

[MozNZ]

OnSetEditText is one event you could use:

procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
ARow: Integer; const Value: String);
var i : integer; Sum:single;
begin
Sum:=0;
for i := 1 to StringGrid1.RowCount do
try
if StringGrid1.Cells[ACol,i] <> '' then
Sum:= Sum + StrToFloat( StringGrid1.Cells[ACol,i]);
except
// ignore any errors in conversion
end;
Label1.Caption := FloatToStr(Sum);
end;


That works in D7, there should be similar things in other versions of Delphi.

 

[filipe26]

But i dont have the event editor OnSetEditText and i use delphi7.

 

[LucieLastic]

hi

I have OnSetEditText. Which Delphi 7 have you got? I've got Professional.

lou

 

[filipe26]

I have Enterprise.

 

[filipe26]

Sorry it's not a tstringgrid but a dbgrid.thanks anyway

 

[filipe26]

But my problem is the same.I have in a table one field with for example 3 records of currency type and by other side a dbtext.What i want is when i change a value of the records will change too the sum into dbtext.Thanks.

 

[towerbase]

Is there any reason why you can't use a TQuery to sum up the necessary fields in the underlying table ?

Andrew