[Valentinich]

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

Код:

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

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 что-бы обработать ошибку преобразования:

Код:

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

[Asinkrit]

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

Код:

1	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.