[Archer666]

Здравствуйте, нужна помощь, необходимо при вычислении наибольшей суммы строки таблицы, выдавать сообщение при наличии пустой ячейки или неверного символа, что то наподобие VAL только с таблицей. Не могу реализовать, помогите..

Код:

procedure max_sum(Tabl_Sg:TStringGrid;N_Out:TEdit;Stolb_Ed,Str_Ed:TLabeledEdit);
   Var i,j,x,max,k:integer;
  begin
   Tabl_Sg.ColCount:=StrToInt(Stolb_Ed.text)+1;  {Присвоение количества столбцов}
   Tabl_Sg.RowCount:=StrToInt(Str_Ed.text)+1;
   With Tabl_Sg do
        begin
              max:=0;
              K:=1;  {присвоение значение переменной}
              For i:=1 to ColCount-1 do        {нахождение строки с максимальной суммой}
              max:=max+StrToint(Cells[i,1]);
              for j:=2 to RowCount-1 do
                  begin x:=0;
                        For i:=1 to ColCount-1 do
                        x:=x+StrToInt(Cells[i,j]);
                        if x>max
                        then begin max:=x;
                                    K:=j;
                             end;
                  end;
          N_Out.Text:=FloatToStr(k); {присвоение значения k компоненту N_Out}
          exit;

  end;
 end;