мер залікової книжки raquo ;;.cells [2,0]:= Шифр ??групи raquo ;;. cells [3,0]:= Назва дисципліни raquo ;; 1.cells [4,0]:= Дата отримання оцінки raquo ;;
StringGrid1.cells [5,0]:= Оцінка raquo ;;
StringGrid1.cells [6,0]:= Прізвище викладача raquo ;;
end; StringGrid2 do.cells [0,0]:= Номер raquo ;;. cells [1,0]:= Шифр группыraquo;;.cells[2,0]:=laquo;Дисциплинаraquo;;.cells[3,0]:=laquo;Преподавательraquo;;;;
TForm1.Button8Click (Sender: TObject) ;. clear; .clear ;;
TForm1.Button1Click (Sender: TObject); j: integer; (strtoint (edit1.Text)) lt;=0 then ( Введено невірне кількість )
else
begin
StringGrid1.RowCount:=strtoint (edit1.Text) +1; j:=1 to (strtoint (edit1.Text)) do.Cells [0, j]:=inttostr (j); ( Вводите дані студентаraquo;);.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;;;
TForm1.Button2Click (Sender: TObject); (j lt; strtoint (edit1.Text)) then (j); (StringGrid1.Cells [1, j]= ) then.Cells[1,j]:=edit2.text;.Cells[2,j]:=edit3.text;.Cells[3,j]:=Tur(edit4.text);.Cells[4,j]:=edit5.text;.Cells[5,j]:=edit6.text;.Cells[6,j]:=Tur(edit7.text);;(laquo;Таблица заповнена ) ;;;
TForm1.Button6Click (Sender: TObject) ;. Clear; .Clear; .Clear; .Clear; .Clear; .Clear ;;
TForm1.Button14Click (Sender: TObject) ;;; TForm1.Button13Click (Sender: TObject); i, j: integer; StringGRid1 doi:=1 to RowCount - 1 doj:=0 to ColCount -1 do [j, i]:= raquo ;;;
TForm1.Button5Click (Sender: TObject) ;, j: integer; (a, strtoint (edit1.text));:=tgruppa.create (strtoint (edit1.text)); stringgrid1 doi: =1 to RowCount - 1 do [i - 1]:=tstudent.create; [i - 1] .nom:=strtoint (cells [1, i]); [i - 1] .grup:=cells [2, i]; [i - 1] .predmet:=cells [3, i]; [i - 1] .data:=cells [4, i]; [i - 1] .ocenka:=strtoint (cells [5, i]); [i - 1] .famp:=cells [6, i] ;;;. setarr (a); _ stringgrid; .getarr (a); stringgrid1 doj:=1 to RowCount - 1 do.Cells [1 , j]:=inttostr (a [j - 1] .nom) ;. Cells [2, j]:=a [j - 1] .grup; .Cells [3, j]:=a [j - 1].predmet; .Cells [4, j]:=a [j - 1] .data; .Cells [5, j]:=inttostr (a [j - 1] .ocenka) ;. Cells [6, j]: =a [j - 1] .famp ;;;;;
TForm1.Button7Click (Sender: TObject); fi1: textfile; buf: string; i, j: integer; OpenDialog1 doopendialog1.Execute then:=opendialog1.FileName; (fi1, st); (fi1);:=1; not eof (fi1) doi:=0 to 7 do begin (fi1, buf);.Cells [i, j]:=buf ;; (j) ;; (fi1) ;;
TForm1.Button11Click (Sender: TObject); student: rstudent; el: tstudent; i, j, k: integer; flt: file of rstudent;:=1;:=0;:=0; (flt, name); (flt); k lt;=(length (a) - 1) do begin.inom:=el.nom ;. igrup:=el.grup; .ipredmet:=el.predmet; .idata:=el.data; .iocenka:=el.ocenka; .ifamp:=el.famp; .inom:=strtoint (stringgrid1.cells [1 , j]) ;. igrup:=stringgrid1.cells [2, j] ;. ipredmet:=stringgrid1.cells [3, j] ;. idata:=stringgrid1.cells [4, j] ;. iocenka:=strtoint ( stringgrid1.cells [5, j]) ;. ifamp:=stringgrid1.cells [6, j]; (flt, student); (i); (j); (k) ;;
ShowMessage ( Чи не задана довжина масиву );
end; (flt) ;;
TForm1.Button12Click (Sender: TObject) ;: file of rstudent;: string ;: tstudent ;: rstudent;, d: integer; OpenDialog1 do:=1; _stringgrid;:=tgruppa.create (0); opendialog1. Execute then:=opendialog1.FileName; fileExists (st) then begin (filegr, st); (filegr);:=0; not EOF (filegr) do begin (a, 1 + d); (filegr, student); [ d]:=tstudent.Create; [d] .nom:=student.inom; [d] .grup:=student.igrup; [d] .predmet:=student.ipredmet; [d] .data:=student. idata; [d] .ocenka:=student.iocenka; [d] .famp:=student.ifamp; .cells [1,1 + d]:=inttostr (a [d] .nom) ;. cells [2, 1 + d]:=a [d] .grup; .cells [3,1 + d]:=a [d] .predmet; .cells [4,1 + d]:=a [d] .data ;. cells [5,1 + d]:=inttostr (a [d] .ocenka) ;. cells [6,1 + d]:=a [d] .famp; (d) ;;. setarr (a); begin (filegr, st); (filegr) ;;; (filegr);:=d ;; Tform1.clear_stringgrid; i, j: integer; StringGrid1 doi:=1 to RowCount - 1 doj:=0 to ColCount - 1 do [ j, i]:= raquo ;;;
TForm1.Button9Click (Sender: TObject) ;: arr;, s2: string;: integer; .clear;:=edit8.text;:=edit9.text; .statement (b, s1, s2); i: =0 to high (b) do:=inttostr (b [i] .nom) + + b [i] .grup + + b [i] .predmet + + b [i] .data + + inttostr (b [i] .ocenka) + + b [i] .famp; .Lines.Add (s1) ;;. setarr (b) ;;
TForm1.Button15Click (Sender: TObject) ;. Clear; .Clear ;;
TForm1.Button10Click (Sender: TObject);:real;,s2:string;:=edit8.text;:=edit9.text;:=g.sredn(a,s1,s2);.Lines.Add(floattostr(sr));;
TForm1.Button3Click (Sender: TObject) ;, j: integer; _stringgrid; .setarr (a) ;. sort_vstavka (g) ;. getarr (a);:=0; j:=...
