abeledEdit3. Text; [3, RowIndex]:=LabeledEdit4. Text;;;;; TForm1. Button15Click (Sender: TObject);, j: integer;. Caption:=«Додавання даних»;. LabeledEdit1. Text:=«»;. LabeledEdit2. Text:=«»;. LabeledEdit3. Text:=«»;. LabeledEdit4. Text:=«»; TabbedNotebook1. PageIndex of
: beginform6 do. EditLabel. Caption:=«Ідентифікатор»;. EditLabel. Caption:=«Прізвище»;. EditLabel. Caption:=«Номер за журналом»;. EditLabel. Caption:=«Участь у НДР»;. Visible:=true;;:=0; StringGrid1. Cells [0, i] <> «» do (i); i> StringGrid1. RowCount then. RowCount:=StringGrid1. RowCount + 1;:=StringGrid1. RowCount;;;; Form6. ShowModal=mrOk thenStringGrid1, Form6 do [0, i]:=LabeledEdit1. Text; [1, i]:=LabeledEdit2. Text; [2, i]:=LabeledEdit3. Text; [3, i]:=LabeledEdit4. Text;;;
: begin. LabeledEdit1. EditLabel. Caption:=«Ідентифікатор»;. LabeledEdit2. EditLabel. Caption:=«Предмет»;. LabeledEdit3. EditLabel. Caption:=«Відсоток здачі»;. LabeledEdit4. Visible:=false;:=0; StringGrid2. Cells [0, i] <> «» do (i); i> StringGrid2. RowCount then. RowCount:=StringGrid2. RowCount + 1;:=StringGrid2. RowCount;;;; Form6. ShowModal=mrOk thenStringGrid2, Form6 do [0, i]:=LabeledEdit1. Text; [1, i]:=LabeledEdit2. Text; [2, i]:=LabeledEdit3. Text;;;
: begin. LabeledEdit1. EditLabel. Caption:=«Ідентифікатор запису»;. LabeledEdit2. EditLabel. Caption:=«Ідентифікатор студента»;. LabeledEdit3. EditLabel. Caption:=«Ідентифікатор предмета»;. LabeledEdit4. EditLabel. Caption:=«Оцінка»;. LabeledEdit4. Visible:=true;:=0; StringGrid3. Cells [0, i] <> «» do (i); i> StringGrid3. RowCount then. RowCount:=StringGrid3. RowCount + 1;:=StringGrid3. RowCount;;;; Form6. ShowModal=mrOk thenStringGrid3, Form6 do [0, i]:=LabeledEdit1. Text; [1, i]:=LabeledEdit2. Text; [2, i]:=LabeledEdit3. Text; [3, i]:=LabeledEdit4. Text;;;;; GridDeleteRow (RowNumber: Integer; Grid: TstringGrid);: Integer;. Row:=RowNumber; (Grid. Row=Grid. RowCount - 1) then
{On the last row}. RowCount:=Grid. RowCount - 1
{Not the last row} i:=RowNumber to Grid. RowCount - 1 do. Rows [i]:=Grid. Rows [i + 1];. RowCount:=Grid. RowCount - 1;;; TForm1. Button1Click (Sender: TObject);: TStrings;: array of TStrings;, j: integer;: boolean;:=false; TabbedNotebook1. PageIndex of
: if StringGrid1. Cells [0, 1]=«» then:=true;
: if StringGrid2. Cells [0, 1]=«» then:=true;
: if StringGrid3. Cells [0, 1]=«» then:=true;; flag then («Усі записи видалено», mtInformation, [mbOk], 0) (MessageDlg («Видалити запис?», mtConfirmation, [mbOk, mbCancel], 0)=mrOk) thenTabbedNotebook1. PageIndex of
: GridDeleteRow (StringGrid1. Row, StringGrid1);
: GridDeleteRow (StringGrid2. Row, StringGrid3);
: GridDeleteRow (StringGrid3. Row, StringGrid3);;; TForm1. SortDelayString;, n, i: integer;: integer;: boolean;: integer;: array [1.50] of string;
/ / FindCount:=0;:=0; I:=1 to tabl. RowCount doTabl. Cells [aCol, i] <> «» then (n);:=n;
/ / for j:=1 to n - 1 do:=cIndex;:=j;:=0; SorType of: res:=(Tabl. Cells [aCol, i]> Tabl . Cells [aCol, i + 1]);: res:=(strtoint (Tabl. Cells [aCol, i])> strtoint (Tabl. Cells [aCol, i + 1]));; res then (Tabl) . Move...
