Контрольная работа: Разработка программного комплекса

table.RowCount := table.RowCount + 1;

end;

//Вносит изменения в отредактированную строку

//row - отредактированные данные типа TWorker

//table - таблица, в которую вносятся изменения

procedure TForm1.EditTableRow(row:TWorker; table:TStringGrid);

var

i:integer;

begin

i := table.Selection.Top;

table.Cells[0, i] := row.FIO;

table.Cells[1, i] := DateToStr(row.StartWork);

table.Cells[2, i] := row.Edication;

table.Cells[3, i] := row.Spec;

if row.sex = 0 then

table.Cells[4, i] := 'муж'

else

table.Cells[4, i] := 'жен';

table.Cells[5, i] := row.Armi;

table.Cells[6, i] := DateToStr(row.BirthDay);

end;

//Преобразует строку таблицы в TWorker

//index - номер строки

//table - таблица, в которой находятся данные

procedure TForm1.TableRowToWorker(index:integer; table:TStringGrid );

var

i:integer;

begin

i := index;