RiverSoftAVG Products Help

Delphi

published
  property Weight: TGraphWeight read FWeight write SetWeight;
 

The following example determines the shortest path beween two nodes (the graph (TGGraph class) is assumed to be full of TWeightedNodes and TWeightedEdges):

Delphi

var
   Node1, Node2: TWeightedNode;
 begin
   Node1 := Graph.Nodes[0];
   Node2 := Graph.Nodes[Graph.NodeCount-1];
   Graph.EnumerateShortestPaths( Node1 );
   ShowMessage( 'To get from '+Node1.Caption+' to '+Node2.Caption+
     ' costs '+IntToStr(Node2.Weight)+'.  The path is '+Node2.ShortestPath.Text );
 end; 

Reference

•GGraph.TGCustomGraph.ShortestPath(TGGraphNode)

•GGraph.TGCustomGraph.EnumerateShortestPaths(TGGraphNode)

•GGraph.TWeightedNode.ShortestPath

•TWeightedNode

•GGraph