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

A: =Worker [i] ;

Worker [i]: =Worker [j] ;

Worker [j]: =A;

end;

Form1. RefreshList;

end;

procedure TForm1. ComboBox1Change(Sender: TObject);

begin

case ComboBox1. ItemIndex of

0: SortByTabN;

1: SortByLastName;

2: SortByName;

3: SortByPatronymic;

4: SortByBirdthDay;

5: SortByIndCode;

6: SortByReceptionData;

7: SortByExperience;

8: SortByLiberationData;

9: SortByPositionName;

10: SortByDepartmentName;

11: SortBySubsectionName;

end;

end;

procedure TForm1. CheckBox1Click(Sender: TObject);

var i: Integer;

begin

GroupBox4. Enabled: =CheckBox1. Checked;

Button1. Enabled: =not CheckBox1. Checked;

Button3. Enabled: =not CheckBox1. Checked;