//
sum:=
for j:=
if stringgrid
sum:=sum+strtofloat(stringgrid
edit
//
sum:=
for j:=
if stringgrid
sum:=sum+strtofloat(stringgrid
edit
//
sum:=
for j:=
if stringgrid
sum:=sum+strtofloat(stringgrid
edit
end;
end;
//
//
procedure Toutput
Button: TMouseButton; Shift: TShiftState; X
begin
//
if (currentCol=
begin
combobox
combobox
combobox
//
//
//
adoquery
adoquery
adoquery
=
adoquery
combobox
while not adoquery
begin
combobox
adoquery
end;
end;
end;
right
From:http://tw.wingwit.com/Article/program/Delphi/201311/24896.html