Собственно говоря, вот элемент кода, ошибка при попытке выполнить сроку setlength(masofFD2, fv2);
procedure FromTo (var Count:integer; var arrofAB : array of string; var arofd : array of string; var Steps : array of integer; var fV : integer; var masofFD : array of integer);
var
f2,fv1,q,stt,i,ij,ii,j,jj,ste : integer;
//// steef = f stte = f2
fv2,ff : integer;
arFr1 : array of integer;
arTo1 : array of integer;
foto : integer;
va1, fromE : boolean;
ZakS, PosS : ReString;
stepsV : array of integer;
masofFD2 : array of integer;
dpvr : boolean;
dpvrsh : integer;
ffv : integer; /// êîë-âî ëèíèé íà êàæîì øàãå.
begin
dpvrsh := 0;
ffv := 0;
dpvr := false;
dopver := 430000;
va1 := false;
fromE := false;
setlength(arFr1, count*2);
setlength(arTo1, count*2);
foto := 0;
ff := fv;
fv2 := fv;
f2 := 0;
ste:=0;
f := 0;
stt :=0;
q:=0;
fv1:=fv;
setlength(masofFD2, fv);
for i:=0 to fv1 do
masofFD2[i]:= masofFD[i];
setlength(arrofB, Count*2);
setlength(ZakS, Count*2);
setlength(PosS, Count*2);
setlength(arFrom, Count*2);
setlength(arTo, Count*2);
setlength(stepsV, count*2);
for i:=0 to length(arofd)-1 do
begin
ZakS := D1(arofd[i]);
if stt = fV1 then begin
stepsV[q] := ffv;
ffv := 0;
inc(q);
fv1 := DeleteAndSort(masofFD2, arFr1, arTo1, foto, fv2);
foto :=0;
fv2 := fv2 + fv1;
setlength(masofFD2, fv2);
for ij:=0 to fv1-1 do begin
masofFD2[ff]:= masLL[ij];
ff := ff + 1;
end;
f := 0;
stt:= 0;
end;
inc(stt);
for ii:=0 to st1-1 do
begin
if ZakS[ii] = '~' then continue;
for j:=0 to length(arrofAB)-1 do begin
PosS := D(arrofAB[j]);
for jj:=0 to st-1 do begin
if PosS[jj] = '~' then continue;
if ZakS[ii] = PosS[jj] then
if fromE = false then
begin
fromE := true;
f := j+1;
arFrom[ste] := f;
arFr1[foto] := f;
ffv := ffv + 1;
if arFrom[ste-1] = arFrom[ste] then
begin
dpvrsh := dpvrsh + 1;
dpvr := true;
dopVer:= dopVer+1;
va1 := true;
arFrom[ste-1] := dopVer;
arFr1[foto-1] := dopVer; end;
end
else
begin
fromE :=false;
f2 := j+1;
arTo[ste] := f2;
arTo1[foto] := f2;
if (arTo[ste-1] = arTo[ste]) and (va1) then begin arTo1[foto] := dopVer; arTo[ste] := dopVer; va1 := false; end;
arrofB[ste] := ZakS[ii];
if ii>0 then
if ZakS[ii-1] = '~' then arrofB[ste] := ZakS[ii-1]+ZakS[ii];
ste := ste +1;
foto := foto + 1;
f := f+1;
end;
end;
end;
end;
end;
RepAndInv(arrofB);
if (dpvr) then
drawdopV(dpvrsh);
drawLine(arFrom, arTo, cordinateX, cordinateY);
end;
Никак не могу понять, почему возникает ошибка (возникает на конкретном шаге, т.к. когда
masofFD2 = ('1','4','3','8');
а
fv2 = 9;
p.s. глобальные
var
dopVer : integer;
smewpripost : integer; /// Ñìåùåíèå ïðè ïîñòðîåíèè âåðøíè
masALLB : array of integer;
iformasallb : integer;
cordinateX : array of integer;
cordinateY : array of integer;
f,l, yV, iii : integer;
arofLb : array of TLabel;
arrofB : array of string; /// Ôàêòû ( òî ÷òî ïèøåì íà äóãàõ
arFrom : array of integer;
arTo : array of integer;
arofLbDis : array of TLabel;
arofIm : array of TImage;
arofX : array of integer;
arrofIDis : array of string;
arofY : array of integer;
txfF : array of string;
txfL : array of string;
arrd : array of string;
masLL : repetedi; // ìàññèâ âåðøèí íà êàæäîì øàãå.
IFB,st, st1 : integer;
arrofDis : array of string;
Вот функция deleteandsort ( p.s. Спасибо за ответы )
function DeleteAndSort(masF : array of integer; masA : array of integer;var masB : array of integer; var ste,count : integer):integer;/// Сортирует и удаляет повторяющиеся элементы
var
n : integer;
ii : integer;
i : integer;
j : integer;
elem : integer;
st : integer;
masL : array of integer;
masofNS : array of integer;
begin
setlength(masofNS, ste*2);
setlength(masL, ste*2);
st:=0;
elem :=0;
for i:=0 to count-1 do
begin
elem := masF[i];
for ii:=0 to ste-1 do
begin
if elem = masA[ii]
then masA[ii] := 0;
if elem = masB[ii]
then masB[ii] := 0;
end;
end;
for i:=0 to ste-1 do
begin
if masA[i] <> 0 then
begin
masL[st]:= masA[i];
st := st + 1;
end;
if masB[i] <> 0 then
begin
masL[st]:= masB[i];
st := st + 1;
end;
end;
masLL := DeleteRepeted(masL,st);
n := length(masLL);
masLL := DeleteRepeted(masLL, n);
// Можно вписать фукцию для отрисовки вершин
drawaLLV(masLL);
//
result := length(masLL);
end;