Курсовая работа: Облік компютерів та комплектуючих на підприємстві

end;

procedure TForm1.DelDep(Index:Byte); //Видалення відділу

var i:Byte;

begin

if ((Count<1)or(Index<1)) then Exit;

for i:=Index to Count-1 do

Dep[i]:=Dep[i+1];

DEC(Count);

ComboBox1.Items.Delete(Index-1);

ComboBox1.ItemIndex:=0;

ShowDepartament(1);

Editing:=True;

end;

function TForm1.DelComp(DepIndex,Index:Byte):Boolean; //Видалення комп’ютера

var i:Byte;

begin

Result:=False;

if ((DepIndex<1)or(DepIndex>Count)) then Exit;

if ((Index<1)or(Index>DEP[DepIndex].CompsCount)) then Exit;

for i:=Index to DEP[DepIndex].CompsCount-1 do

DEP[DepIndex].Comps[i]:=DEP[DepIndex].Comps[i+1];

DEC(DEP[DepIndex].CompsCount);

ShowDepartament(DepIndex);

Result:=True;

Editing:=True;

end;

//Перенесення одного комп’ютера з одного відділу в інший

function TForm1.MoveCompToDep(DepIndex,Index,NewDep:Byte):Boolean;

begin