Row (i, i +1);:=1; (i); (FindCount, 1);; (flag=0) or (i=0);; («Невірні дані!», MtWarning, [mbOk ], 0);; (cIndex); cIndex> cCount - 1 then:=1; FindCount> 0 then («Сортування закінчена! Кроків:» + inttostr (FindCount), mtWarning, [mbOk], 0);;; TForm1. Button2Click (Sender: TObject);: integer;:=RadioGroup1. ItemIndex; TabbedNotebook1. PageIndex of
: beginARow in [1, 3] then (StringGrid1, aRow, TypeString); Arow in [0, 2] then (StringGrid1, aRow, TypeInteger);;
: beginArow=1 then (StringGrid2, aRow, TypeString); Arow in [0, 2] then (StringGrid2, aRow, TypeInteger);;
: begin (StringGrid3, aRow, TypeInteger);;
: begin (ARow=0) then (StringGrid4, aRow, TypeInteger); (ARow=1) then (StringGrid4, aRow, TypeString);;;; TForm1. Button3Click (Sender: TObject);: integer;:=RadioGroup1. ItemIndex; TabbedNotebook1. PageIndex of
: beginARow in [1, 3] then (StringGrid1, aRow, TypeString); Arow in [0, 2] then (StringGrid1, aRow, TypeInteger);;
: beginArow=1 then (StringGrid2, aRow, TypeString); Arow in [0, 2] then (StringGrid2, aRow, TypeInteger);;
: begin (StringGrid3, aRow, TypeInteger);;
: begin (ARow=0) then (StringGrid3, aRow, TypeInteger); (ARow=1) then (StringGrid3, aRow, TypeString);;;; TForm1. Button4Click (Sender: TObject);: string;, k, old, cnt, i: integer;: string; i:=1 to stringgrid4. rowcount do. Rows [i]. Clear;
/ / StringGrid4. Cells [0, 1]:=«»;
/ / StringGrid4. Cells [1, 1]:=«»;:=0;:=0;:=0;:=IntToStr (5 - RadioGroup2. ItemIndex);:=1; r>=0 do:=BinaryFind ( k, s, 3, StringGrid3);:=r; r>=0 then:=StringGrid3. Cells [1, r];. Rows [cnt]. Add (stId);:=BinaryFind (1, stId, 0, StringGrid1); r>=0 then. Rows [cnt]. Append (StringGrid1. Cells [1, r]). Rows [cnt]. Append («Прізвище відсутня»); (cnt, 1);:=0;;;; TForm1. FormCreate (Sender: TObject); StringGrid1 do [0, 0]:=«Ідентифікатор»; [1, 0]:="Прізвище"; [2, 0]:=«Номер за журналом»; [3, 0]:=«Участь у НДР»;; StringGrid2 do [0, 0]:=«Ідентифікатор»; [1, 0]:=«Предмет»; [2, 0]:=«Відсоток здачі» ;; StringGrid3 do [0, 0]:=«Ідентифікатор запису»; [1, 0]:=«Ідентифікатор студента»; [2, 0]:=«Ідентифікатор предмета»; [3, 0]:= «Оцінка»;; StringGrid4 do [0, 0]:=«Ідентифікатор»; [1, 0]:="Прізвище";;; TForm1. N2Click (Sender: TObject);, j: integer;: TStudent;: TResults;: TMark; TabbedNotebook1. PageIndex of
: begin (StudentFile, «students. std»); (StudentFile);:=0;:=1; repeatStudentRecord, StringGrid1 do (StudentFile, StudentRecord); [0, j]:=IntToStr (ID); [1, j]:=FSTU; [2, j]:=IntToStr (NUMBER); YCHASTIE then [3, j] :=«Так» [3, j]:="Ні"; (j);; Eof (StudentFile); (StudentFile);;
: begin (ResultsFile, «results. rsl»); (ResultsFile);:=0;:=1; ResultRecord, StringGrid2 do (ResultsFile, ResultRecord); [0, j]:= IntToStr (ID); [1, j]:=ResultRecord. NAME; [2, j]:=RESULT; (j);; Eof (ResultsFile); (ResultsFile);;
: begin (MarksFile, «mark. mrk»); (MarksFile);:=0;:=1; MarkRecord, StringGrid3 do (MarksFile, MarkRecord); [0, j]:= IntToStr (ID); [1, j]:=IntToStr (StudentID); [2, j]:=IntToStr (ResultsID); [3, j]:=IntToStr (Mark); (j);; Eof (MarksFile) ; (MarksFile);;; («Невірне вміст файлу!», mtWarning, [mbOk], 0);;; TForm1. N3Click (Sender: TObject);: integer;: TStudent;: TRes...
