[Archer666]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

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;

[angvelem]

Используй TryStrToInt.
Если нужно проигнорировать неверное значение - StrToIntDef.

[Archer666]

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

Используй TryStrToInt.
Если нужно проигнорировать неверное значение - StrToIntDef.

пишет о несовместимости типов, можно пример кода?

[Alegun]

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

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

А если так?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51

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, хоршая мысля приходит опосля

[angvelem]

И зачем такие сложности (отдельная функция)?

Код:

1 2 3 4 5 6 7 8 9 10 11 12

var   z : Integer; ...   For i := 1 to ColCount - 1 do        {нахождение строки с максимальной суммой}     if TryStrToInt(Cells[i, 1], z) then       inc(max, z);     else     begin       ShowMessage('Пустая ячека!');       Exit;     end; ...

С переменной x поступаем так же.

[Archer666]

Отлично_)
Спасибо вам)