Tenho um StringGrid1 que preencho os dados e apartir disso eu calculo o total e a média. Na imagem 1, demonstro funcionando corretamente. Porém eu posso não querer colocar um número em uma das células, o que causa o erro da imagem 2.
O código que estou usando:
procedure TForm2.Calcular(Sender: TObject);
begin
SaveStringGrid(StringGrid1, 'c:\temp.txt');
end;
procedure SaveStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
var
f: TextFile;
i, k, sum: Integer;
med: EXTENDED;
begin
with StringGrid do
begin
for i := 1 to RowCount-1 do
begin
sum := 0;
med := 0;
for k := 1 to ColCount-3 do
begin
sum :=sum + strtoint(Cells [k, i]);
med := sum / k;
Cells [ColCount -2, i] := inttostr(sum);
Cells [ColCount -1, i] := FloatToStr(med);
end;
end;
en