Курсовая работа: Базы данных в Delphi

tt: array [1..5, 1..5] of extended;

begin

table2.moveby(1);

i:=1;

for i:=1 to 3 do //3 это кол-во курсов

begin

for j:=1 to 2 do //2 кол-во групп на курсе

begin

table1.Filtered:=true;

tmp:tmp+gr[j];

table1.Filter:='kurs=1 and grup='+ tmp;

table2.Filtered:=true;

table2.Filter:='sessia=1';

k:=table2.RecordCount;

t:=0;

table2.moveby(1);

for f:=1 to k do

begin

t:=t+table2.fieldbyname('ocenka').value;

table2.next;

end;

tt[1, 1]:=t/k;

//table1.Filtered:=false;

end;

end;

label1.caption:=(inttostr(t));

end;

procedure TForm1.Button2Click(Sender: TObject);

var