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

begin

if Button2. Enabled then

Button2. OnClick(Button2);

end;

procedure TForm1. N3Click(Sender: TObject);

begin

if CurFileName<>'' then

SaveToFile(CurFileName)

else N4. OnClick(N4);

end;

procedure TForm1. N5Click(Sender: TObject);

begin

Close;

end;

procedure TForm1. Button5Click(Sender: TObject);

var i,L: Integer;

A: Kadr;

begin

if WorkersCount<=1 then Exit;

L: =Trunc((WorkersCount-1) / 2);

for i: =0 to L do begin

A: =Worker [i] ;

Worker [i]: =Worker [WorkersCount-1-i] ;

Worker [WorkersCount-1-i]: =A;

end;

RefreshList;

end;

procedure SortByTabN; // Сортування за табельним номером

var i,j: Integer;