Преобразование чисел

[Квэнди]

summ:=(StrToInt(SG3.cells[2,1])+StrToInt(SG3.cells[8,1])+StrToInt(SG3.cells[14,1])+StrToInt(SG3.cells[20,1]))/4;

значит в одной из перечисленных ячеек дробное число

[Stilet]

дробное число

Или набор символов не представляющийся числом, или пусто.

[artemavd]

Квэнди, во всех этих четырех числах и будут у меня стоять дробные числа. Например, 3,5. Просто я как бы сумму этих дробей делю еще на 4. Но почему не работает функция окрцгления, а если данные введены во все ячейки, то даже и в этом случае появляется ошибка "3,5 is not a value integer"? Почему так? Что значит эта ошибка? Ведь до этого я целое число делил на 4, получалось дробное, но функция округления работала! Может кто нибудь знает ссылку в интернете на эту тему? Буду признателен.

[Alter]

Незнаю что там такого хотите, но сложение ячеек неправильное, надо исппользовать StrToFloat();.
Вот код, чтобы недумать о разделителе:

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
 If (Key in ['.', ',']) then Key:=DecimalSeparator;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 If (Key in ['.', ',']) then Key:=DecimalSeparator;
end;

[Квэнди]

Будьте внимательней:

summ:=(StrToInt(SG3.cells[2,1])+StrToInt(SG3.cells[8,1])+StrToInt(SG3.cells[14,1])+StrToInt(SG3.cells[20,1]))/4;

StrToInt(SG3.cells[8,1])
Что будет если в SG3.cells[8,1] будет не целое число как вы сами считаете ?

[Stilet]

во всех этих четырех числах и будут у меня стоять дробные числа

Но для перевода дробных нужен не StrToInt а StrToFloat