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

end;

procedure SortByExperience; // Сортування за стажем

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]. Experience>Worker [j]. Experience then begin

A: =Worker [i] ;

Worker [i]: =Worker [j] ;

Worker [j]: =A;

end;

Form1. RefreshList;

end;

procedure SortByLiberationData; // Сортування за датою звільнення

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]. LiberationData) >DataToInt(Worker [j]. LiberationData) then begin

A: =Worker [i] ;

Worker [i]: =Worker [j] ;

Worker [j]: =A;

end;

Form1. RefreshList;

end;

procedure SortByPositionName; // Сортування за назвою посади

var i,j: Integer;