Беда с задачей)

[BDA]

Напишите четко, в каком столбце какой таблицы что хранится.

[Vitia666]

в стрингГрид1,заносятся оценки студентов.В стринг грид 2 выводятьсякол-во двоек,троек и т.д.
вообщем вот

[BDA]

Нужно просто по-другому пустить индексы:

a:integer;
...
n2:=0;
n3:=0;
n4:=0;
n5:=0;
for i:=0 to n-1 do
if StringGrid1.Cells[i,0]<>'' then
	begin
		a:=strtoint(StringGrid1.Cells[i,0]);
		case a of
		2:inc(n2);
		3:inc(n3);
		4:inc(n4);
		5:inc(n5);
		end;
	end;
StringGrid2.Cells[0,0]:=inttostr(n2);
StringGrid2.Cells[1,0]:=inttostr(n3);
StringGrid2.Cells[2,0]:=inttostr(n4);
StringGrid2.Cells[3,0]:=inttostr(n5);

[Vitia666]

Дааааааа!!!Работаеет!!Просто ахренеть какое спасибо огромнейшее от меня!!)
Если не трудно кстати,обьясни зачем здесь кейс нужен и что такое inc

case a of
		2:inc(n2);
		3:inc(n3);
		4:inc(n4);
		5:inc(n5);

[BDA]

Case - оператор выбора.
Вместо if'ов.
Если a=2, то выполняется 2:, и т.д.
inc(n2) то же самое, что n2:=n2+1

[Vitia666]

Всё,теперь всё предельно ясно)Ты даже не представляешь как помог)
Огромное человеческое спасибо)

[BDA]

Пожалуйста)
Но все же, если у вас придираются к коду, лучше использовать массивы.
Т.е. n2,...,n5 заменить на n:array[2..5] of integer
и потом делать просто inc(n[a]); вместо всего case