Курсовая работа: Информационная система начальника жилищно-эксплуатационной службы

begin

FNum:= FNum + 1;

end;

procedure TVector. AddCopy (Index: integer);

begin

FNum:= FNum + 1;

FArr[FNum]:= FArr[Index];

end;

procedure TVector. Delete (Index: integer);

var i: integer;

begin

if FNum=0 then exit; // Вродекакнечегоудалять

for i:=Index+1 to FNum do // Перенесемстроки

FArr [I-1]:= FArr[I];

FNum:= FNum -1; // уменьшаем количество

end;

// Процедура сортировки вектора данных по индексу SortId с режимом xMode

// xMode = 1 – по возрастанию

// xMode = 2 – по убыванию

// xMode = 0 – использовать текущий режим SortMode и затем поменять его

procedure TVector. Sort (xMode: integer = 0);

procedure QSort (l, r: Integer);

function Less (var x, y: Variant): boolean;

begin

if (X < Y) and (SortMode=1) // повозрастанию

then Less:=true

else Less:=false;

end;

var