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

begin

if Form2.ShowModal = mrOk then

begin

if Form2.RadioButton1.Checked then

begin

Base :=Form2.Edit1.Text;

ReadData(Base, true);

end

else

begin

Base :=Form2.Edit3.Text;

ReadData(Base, false);

end;

end;

end;

//переводит объект типа TWorker в строку таблицы

//row - новая строка типа TWorker

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

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

begin

table.Cells[0, table.RowCount - 1] := row.FIO;

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

table.Cells[2, table.RowCount - 1] := row.Edication;

table.Cells[3, table.RowCount - 1] := row.Spec;

if row.sex = 0 then

table.Cells[4, table.RowCount - 1] := 'муж'

else

table.Cells[4, table.RowCount - 1] := 'жен';

table.Cells[5, table.RowCount - 1] := row.Armi;