Курсовая работа: Кадровий облік

procedure FindByBirthDay;

var i: Integer;

begin

i: =0;

while i<=WorkersCount-1 do begin

if DataToInt(Worker [i]. BirthData) <>

DataToInt(Form1. GetData(Form1. ComboBox3. Text)) then begin

Form2. DelWorker(i);

DEC(i);

end;

INC(i);

end;

Form1. RefreshList;

end;

procedure FindByBirthPlace;

var i: Integer;

begin

i: =0;

while i<=WorkersCount-1 do begin

if Worker [i]. BirthPlace<>Form1. ComboBox3. Text then begin

Form2. DelWorker(i);

DEC(i);

end;

INC(i);

end;

Form1. RefreshList;

end;

procedure FindByStat;

var i: Integer;