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

begin

Result: =-1;

for i: =0 to RezervCount-1 do

if Worker [Index]. TabN=Rezerv [i]. TabN then begin

Result: =i;

Exit;

end;

end;

procedure FindByTabN;

var i: Integer;

begin

i: =0;

while i<=WorkersCount-1 do begin

if Worker [i]. TabN<>Form2. STI(Form1. ComboBox3. Text) then begin

Form2. DelWorker(i);

DEC(i);

end;

INC(i);

end;

Form1. RefreshList;

end;

procedure FindByLastName;

var i: Integer;

begin

i: =0;

while i<=WorkersCount-1 do begin

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

Form2. DelWorker(i);

DEC(i);