Objektovo- Orientované Programovanie

Dynamické pole dynamických polí

procedure TVrchol.zmenVahuHrany(c:integer; v:TVaha);

var i:integer;

begin

i:=indexHrany(c); if i>=0 then sus[i].vaha:=v;

end;

procedure TVrchol.zmenVahuHrany(s:THrana; v:TVaha);

var i:integer;

begin

i:=0; while (i<=high(sus)) and (sus[i]<>s) do inc(i);

if i<=high(sus) then sus[i].vaha:=v;

end;