Нули

[puporev]

if Form1.Label7.caption='' then SG3.cells[2,1]:='0'
else SG3.cells[2,1]:=Form1.Label7.Caption;

Ну а это Вы пробовали?

[artemavd]

Нет еще) В какой из двух кодов и куда мне это надо вставить?)

[puporev]

Ну естественно при вводе данных в StringGrid, т.е. здесь:
{1}
if Form1.Label7.caption='' then SG3.cells[2,1]:='0'
else SG3.cells[2,1]:=Form1.Label7.Caption;
и так далее по всем ячейкам, раз уж Вы вводите в каждую ячейку отдельно.
{SG3.Cells[4,1]:=Form1.Label121.Caption;
SG3.Cells[5,1]:=Form1.Label92.Caption;
SG3.Cells[6,1]:=Form1.Label147.Caption;}

[puporev]

Посмотрел внимательнее Ваш код и мне показалось, что Вы решаете очень простую задачу каким-то страшным способом. Напишите Ваше задание, может найдем способ попроще. Количество оценок-целое число и не надо его в Real.
Выражения типа (Round(f511));тоже целые числа.

Кстати в следующий раз, когда будете выкладывать код, обрамляйте его тегами (кнопка # над окном сообщений), иначе трудно читать, да и места много занимает.

[artemavd]

#Я сделал, чтобы появлялись нули. Все хорошо считает по четвертям, но когда мне надо посчитать итоговую для первого ученика по этому коду:
#
{1}
summ:=(StrToFloat(SG3.cells[2,1])+StrToFloat(SG3.cells[8,1])+StrToFloat(SG3.cells[14,1])+StrToFloat(SG3.cells[20,1]))/4;
SG3.Cells[26,1]:=FloatToStrF(summ,ffGeneral,0,2);

summ1:=(StrToFloat(SG3.cells[3,1])+StrToFloat(SG3.cells[9,1])+StrToFloat(SG3.cells[15,1])+StrToFloat(SG3.cells[21,1]))/4;
SG3.Cells[27,1]:=FloatToStr(Round(summ1));
summ2:=(StrToFloat(SG3.cells[4,1])+StrToFloat(SG3.cells[10,1])+StrToFloat(SG3.cells[16,1])+StrToFloat(SG3.cells[22,1]))/4;
SG3.Cells[28,1]:=FloatToStr(Round(summ2));
summ3:=(StrToFloat(SG3.cells[5,1])+StrToFloat(SG3.cells[11,1])+StrToFloat(SG3.cells[17,1])+StrToFloat(SG3.cells[23,1]))/4;
SG3.Cells[29,1]:=FloatToStr(Round(summ3));
summ100:=(StrToFloat(SG3.cells[6,1])+StrToFloat(SG3.cells[12,1])+StrToFloat(SG3.cells[18,1])+StrToFloat(SG3.cells[24,1]))/4;
SG3.Cells[30,1]:=FloatToStr(Round(summ100));
то если нет для остальных людей данных, то программа выводит сообщение об ошибке такое: "is not valid floating value", но при этом для первого же учащегося итоговые значения считаются, и появляется эта ошибка. Как я понял, то это потому она появляется что для остальных учеников нет данных (или неправильно понял суть ошибки?), а если я вручную заполню для остальных учеников ячейки нулями, то все будет посчитано. Как в выложенном мною выше коде сделать так, чтобы нули тоже появлялись в пустых ячейках как это было сделано для этого кода:
#
if Form1.Label7.caption='' then SG3.cells[2,1]:='0'
else SG3.cells[2,1]:=Form1.Label7.Caption;
Как?

[puporev]

SG3.Cells[30,1]:=FloatToStr(Round(summ100));

Я Вам писал, что Round(summ100)-число целое, поэтому попробуйте написать SG3.Cells[30,1]:=IntToStr(Round(summ100));
Во всех случаях, где есть Round.

[artemavd]

Я пробовал, а программа выводит ошибку о несоответствии типов стринг и интеджер((

[puporev]

Что-то Вы или не то написали, или не там, потому что
SG3.Cells[30,1]:=IntToStr(Round(summ100)); не может выдавать несоответствие типов.
Приведите строки, где выдает ошибку.

[artemavd]

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

Что-то Вы или не то написали, или не там, потому что
SG3.Cells[30,1]:=IntToStr(Round(summ100)); не может выдавать несоответствие типов.

Пятый критерий он у меня считает. Он не считает итоговый по всему столбцу, т.е. начинаю с [26,1] и до [26,25]. В [26,27] он должен выдать число полученное при использовании кода приведенного выше последнего.

[puporev]

Так напишите как Вы считаете итоговый по столбцу, я этого кода не видел и что у Вас в ячейке [26,26].