[Valentinich]

В чём ошибка, при нажатии выбивает ошибку и выбрасывает из программы (

Код:

var
i,j:integer; s:real;
begin
for i:=1 to 11 do
    begin s:=0;
    for j:=1 to 5 do
       begin
        s:=s+StrToInt(Form1.StringGrid1.Cells[i,j]);
       end;
      Form1.StringGrid1.Cells[i,6]:=FloatToStr(s/5);
    end;
end;

Admin: Пользуемся тегами!

[friz]

что за ошибка?

[Valentinich]

сам немогу понять. просто пишет\ Project Project1.exe raised exception class EConvertError with message ''' is not a valid integer value'. Process Step or run to continue.

[lmikle]

Где-то у тебя пустая строка (ячейка).
Ты пытаешься ее конвертировать в число. Естественно, ты получаешь сообщение об ошибке.

[Страдалецъ]

Воспользуйтесь функцией TryStrToInt что-бы обработать ошибку преобразования:

Код:

s:=s+TryStrToInt(Form1.StringGrid1.Cells[i,j],0);

[Asinkrit]

не совсем верно,

Код:

  function TryStrToInt(const S: string; out Value: Integer): Boolean;

[NumLock]

или StrToIntDef:

StrToIntDef function
Converts a string that represents an integer (decimal or hex notation) to a number.

function StrToIntDef(const S: string; Default: Integer): Integer;

Description

StrToIntDef converts the string S, which represents an integer-type number in either decimal or hexadecimal notation, into a number. If S does not represent a valid number, StrToIntDef returns the number passed in Default.