Delphi. StringGrid. посчитать суммарный балл каждого студента

[tvorozhenciya]

Я сделала 2 таблицы. Во вторую пыталась вывести фамилии с суммарными баллами. Но проблема с повторением фамилии. Что только не пробовала..

procedure TForm2.N6Click(Sender: TObject);
var
i,l:integer;
bal,fam,ob:array[1..100] of string;
k,j,flag:integer;
begin
k:=0;
l:=1;
 for i:=1 to stringgrid1.rowcount-1 do
  begin
  if (stringgrid1.Cells[1,i]=stringgrid1.Cells[1,i+1]) then
   begin
    k:=k+1;
    l:=l+1;
    fam[k]:=stringgrid1.Cells[1,i];
    bal[k]:=stringgrid1.Cells[4,i];
   stringgrid2.Cells[1,l]:=fam[k];
   stringgrid2.Cells[2,l]:=bal[k];
  end
  else if (stringgrid1.Cells[1,i]<>stringgrid1.Cells[1,i+1]) then
  begin
    k:=k+1;
    l:=l+1;
    fam[k]:=stringgrid1.Cells[1,i];
    bal[k]:=stringgrid1.Cells[4,i];
   stringgrid2.Cells[1,l]:=fam[k];
   stringgrid2.Cells[2,l]:=bal[k];
  end;
 end;
end;

условие: таблица с данными: фамилия студента, курс, оценка, оценка в баллах. Нужно посчитать суммарный балл каждого студента.

[Stilet]

с повторением фамилии

Хм... Я бы пожалуй написал функцию, возвращающую фамилии причем без повторов:

...
 with StringGrid2 do begin
  RowCount:=0;
  for i:=low(fam) to high(fam) do begin
   flag:=false;
   for k:=0 to RowCount-1 do begin
    if fam[i]=cells[1,k] then begin
     flag:=true;break;
    end;
   end;
   if not flag then begin
    rowCount:=rowCount+1;
    cells[1,rowCount-1]:=fam[i];
   end;
  end;
 end;

А терь функцию возвращающую сумму по фамилии, и в цикле пройтись по гриду, передавая функции фамилию, пусть посуммирует, и вернет результат

[Grag]

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

procedure TForm2.N6Click(Sender: TObject);
var
i,l:integer;
bal,fam,ob:array[1..100] of string;
k,j,flag:integer;
begin
k:=0;
l:=1;
 for i:=1 to stringgrid1.rowcount-1 do
  begin
  if (stringgrid1.Cells[1,i]=stringgrid1.Cells[1,i+1]) then
   begin
    k:=k+1;
    l:=l+1;
    fam[k]:=stringgrid1.Cells[1,i];
    bal[k]:=stringgrid1.Cells[4,i];
   stringgrid2.Cells[1,l]:=fam[k];
   stringgrid2.Cells[2,l]:=bal[k];
  end
  else if (stringgrid1.Cells[1,i]<>stringgrid1.Cells[1,i+1]) then
  begin
    k:=k+1;
    l:=l+1;
    fam[k]:=stringgrid1.Cells[1,i];
    bal[k]:=stringgrid1.Cells[4,i];
   stringgrid2.Cells[1,l]:=fam[k];
   stringgrid2.Cells[2,l]:=bal[k];
  end;
 end;
end;

А я вообще ничего не понял в твоем коде...
Зачем делать вторую проверку, если она уже является результатом первой проверки на условие... Это два взаимоисключающие друг друга условия... Else будет выполняться если не соблюдено равенство, зачем там проверка того же самого на неравенство. Да и код полностью повторяется в обеих блоках (абсолютно одинаковый), тогда зачем вообще проверки....

[tvorozhenciya]

пример: посчитать суммарное количество баллов студентов: Курочкин -50, Лапкин -35, Зайчиков - 70, Лапкин - 45, Зайчиков - 60. Нужно чтобы вывелось: Курочкин -50, Лапкин - 80, Зайчиков - 130. Так не получится в этой процедуре? а тогда как ее изменить чтобы например из таблицы в memo вывести только столбец с фамилиями и баллами с суммированными
procedure TForm2.N6Click(Sender: TObject);
var
i,l:integer;
bal,fam,ob:array[1..100] of string;
k,j,flag:integer;
begin
k:=0;
l:=1;
for i:=1 to stringgrid1.rowcount-1 do
begin
if (stringgrid1.Cells[1,i]=stringgrid1.Cells[1,i+1]) then
begin
k:=k+1;
l:=l+1;
fam[k]:=stringgrid1.Cells[1,i];
bal[k]:=bal[k]+stringgrid1.Cells[4,i]; а такое может быть????
stringgrid2.Cells[1,l]:=fam[k];
stringgrid2.Cells[2,l]:=bal[k];
end
else if (stringgrid1.Cells[1,i]<>stringgrid1.Cells[1,i+1]) then
begin
k:=k+1;
l:=l+1;
fam[k]:=stringgrid1.Cells[1,i];
bal[k]:=stringgrid1.Cells[4,i];
stringgrid2.Cells[1,l]:=fam[k];
stringgrid2.Cells[2,l]:=bal[k];
end;
end;
end;

[tvorozhenciya]

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

Хм... Я бы пожалуй написал функцию, возвращающую фамилии причем без повторов:

...
 with StringGrid2 do begin
  RowCount:=0;
  for i:=low(fam) to high(fam) do begin
   flag:=false;
   for k:=0 to RowCount-1 do begin
    if fam[i]=cells[1,k] then begin
     flag:=true;break;
    end;
   end;
   if not flag then begin
    rowCount:=rowCount+1;
    cells[1,rowCount-1]:=fam[i];
   end;
  end;
 end;

А терь функцию возвращающую сумму по фамилии, и в цикле пройтись по гриду, передавая функции фамилию, пусть посуммирует, и вернет результат

Не совсем поняла это код только для одинаковых фамилий?

[tvorozhenciya]

Я что-то тут вообще не поняла, что за чем нужно и куда вставлять..