Dynamické
pole dynamických polí
procedure
TVrchol.pridajHranu(c:integer; v:TVaha);
begin
if not jeHrana(c) then
begin SetLength(sus,Length(sus)+1); sus[high(sus)]:=THrana.Create(c,v);
end;
end;
procedure
TVrchol.zrusHranu(c:integer);var i:integer;
begin
i:=indexHrany(c); if i>=0 then
begin sus[i].Free; sus[i]:=sus[high(sus)];
SetLength(sus,high(sus)); end;
end;