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

i: =0;

while i<=WorkersCount-1 do begin

if ORD(Worker [i]. Stat) <>Form1. ComboBox3. ItemIndex then begin

Form2. DelWorker(i);

DEC(i);

end;

INC(i);

end;

Form1. RefreshList;

end;

procedure FindByIndCode;

var i: Integer;

begin

i: =0;

while i<=WorkersCount-1 do begin

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

Form2. DelWorker(i);

DEC(i);

end;

INC(i);

end;

Form1. RefreshList;

end;

procedure FindByReceptionData;

var i: Integer;

begin

i: =0;

while i<=WorkersCount-1 do begin

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