[Alegun]

Сообщение от Archer666

...можно пример кода?

А если так?

Код:

function trs(ds: string; var vs: integer): boolean;
var
i: integer;
begin
Result:= false;
if ds = '' then exit;
for i:= 0 to Length(ds) do
case ds[i] of
'0'..'9': Result:= true;
else
Result:= false;
end;
if Result then vs:= StrToInt(ds);
end;

procedure max_sum(Tabl_Sg:TStringGrid;N_Out:TEdit;Stolb_Ed,Str_Ed:TLabeledEdit);
   Var i,j,x,max,k, t: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        {нахождение строки с максимальной суммой}

              if trs(Cells[i,1],t) then max:= max + t else
              begin
              ShowMessage('Пустая ячека!');
              Exit;
              end;

              for j:=2 to RowCount-1 do
                  begin x:=0;
                        For i:=1 to ColCount-1 do

                       if trs(Cells[i,j],t) then x:= x + t else
              begin
              ShowMessage('Пустая ячека!');
              Exit;
              end;
                      if x>max
                        then begin max:=x;
                                    K:=j;
                             end;
                  end;
          N_Out.Text:=FloatToStr(k); {присвоение значения k компоненту N_Out}
          exit;

  end;
 end;

З.Ы. Угу, УК angvelem, хоршая мысля приходит опосля