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

RezervCount: =WorkersCount;

SetLength(Rezerv,RezervCount);

for i: =0 to RezervCount-1 do

Rezerv [i]: =Worker [i] ;

end else begin

WorkersCount: =RezervCount;

SetLength(Worker,WorkersCount);

for i: =0 to WorkersCount-1 do

Worker [i]: =Rezerv [i] ;

RefreshList;

end;

end;

procedure TForm1. Button7Click(Sender: TObject);

var i: Integer;

begin

WorkersCount: =RezervCount;

SetLength(Worker,WorkersCount);

for i: =0 to WorkersCount-1 do

Worker [i]: =Rezerv [i] ;

RefreshList;

end;

procedure TForm1. ComboBox3KeyPress(Sender: TObject; var Key: Char);

begin

case ComboBox2. ItemIndex of

0,4,7,8,9,11: if not (Key in ['0'. '9',#8]) then Key: =#0;

6,10,12,13,14,15,16: Key: =#0;

end;

end;

procedure TForm1. ComboBox3Change(Sender: TObject);