Objektovo- Orientované Programovanie

TGraf = class

private g:array of TVrchol;

public constructor Create;

procedure pridajVrchol(m:string; xx,yy:integer);

procedure zrusVrchol(c:integer);

procedure pridajHranu(c1,c2:integer; v:TVaha); overload;

procedure pridajHranu(v1,v2:TVrchol; v:TVaha); overload;

procedure zrusHranu(c1,c2:integer);

procedure zmenVahuHrany(c1,c2:integer; v:TVaha);

function jeHrana(c1,c2:integer):boolean;

end;