Это код, который складывает по вертикали ячейки в StringGrid:
Код:
for i:=1 to 25 do
begin
if (SG3.Cells[2,i]=' ') or (SG3.Cells[8,i]=' ') or (SG3.cells[14,i]=' ') or (SG3.cells[20,i]=' ') then SG3.cells[26,i]:='0' else
begin
try
summ:=(StrToFloat(SG3.Cells[2,i])+StrToFloat(SG3.cells[8,i])+
StrToFloat(SG3.cells[14,i])+
StrTofloat(SG3.cells[20,i]))/4;
SG3.Cells[26,i]:=FloatToStrF(summ,ffFixed,1,1);
if SG3.Cells[26,i]='0.0' then SG3.Cells[26,i]:='0';
except
SG3.Cells[26,i]:='0.0';
end;
end;
end;
Но чтобы он работал, то необходимо на первой форме, откуда берутся данные, проставлять напротив тех фамилий где нет данных вручную нули, чтобы код приведенный выше работал. Как сделать, чтобы если нет данных то он не обращал внимания на это и работал?
