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

Worker.StartWork := StrToDate(table.Cells[1, i]);

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

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

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

Worker.sex := 0

else

Worker.sex := 1;

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

Worker.BirthDay := StrToDate(table.Cells[6, i]);

end;

//читает данные из файла в таблицу

// fileName - имя файла и путь к нему

//new - показывает отрывается существующая база или создается новая

procedure TForm1.ReadData(fileName:string; new:bool);

var

F:File of TWorker;

size:integer;

begin

AssignFile(F,fileName);

if new then

begin

Rewrite(F);

end

else

begin

Reset(F);

Seek(F,0);

while (not EOF(F)) do

begin