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

A: =Worker [i] ;

Worker [i]: =Worker [j] ;

Worker [j]: =A;

end;

Form1. RefreshList;

end;

procedure SortByIndCode; // Сортування за ідентифікаційним кодом

var i,j: Integer;

A: Kadr;

begin

for i: =0 to WorkersCount-2 do

for j: =i+1 to WorkersCount-1 do

if Worker [i]. IndCode>Worker [j]. IndCode then begin

A: =Worker [i] ;

Worker [i]: =Worker [j] ;

Worker [j]: =A;

end;

Form1. RefreshList;

end;

procedure SortByReceptionData; // Сортування за датою прийому на роботу

var i,j: Integer;

A: Kadr; begin

for i: =0 to WorkersCount-2 do

for j: =i+1 to WorkersCount-1 do

if DataToInt(Worker [i]. ReceptionData) >DataToInt(Worker [j]. ReceptionData) then begin

A: =Worker [i] ;

Worker [i]: =Worker [j] ;

Worker [j]: =A;

end;