Thank very much for the fast response.
The code works perfect.
Thanks again.
///
procedure Fapousiologiolist_TBG1_OnChange (Sender: string);
var
c3, c4, c5: string;
d: double;
begin
c3 := Fapousiologiolist.TBG1.Columns[3].Footer.Caption;
c4 := Fapousiologiolist.TBG1.Columns[4].Footer.Caption;
c5 := Fapousiologiolist.TBG1.Columns[5].Footer.Caption;
c3 := ReplaceStr(c3, '?=', '');
c4 := ReplaceStr(c4, '?=', '');
c5 := ReplaceStr(c5, '?=', '');
if ValidInt(c3) and ValidInt(c4) and ValidInt(c5) then
Fapousiologiolist.TBG1.Columns[0].Footer.Caption := 'Total: ' + IntToStr( StrToInt(c3) + StrToInt(c4) +StrToInt(c5) )
else Fapousiologiolist.TBG1.Columns[0].Footer.Caption := 'Total: ';
end;
begin
end.
///