RiverSoftAVG Products Help

Delphi

public
  function GetEarliestCompletionTime( StartEvent, FinishEvent: TAOEEvent;
  Path: TStrings; var PathTime: Integer ): TStrings;
 

The following example fills in a list box with the critical nodes in the activity network, the earliest project completion time, and finally the criticality for each task:

Delphi

var
    i, j: Integer;
 begin
      if G is TActivityNetwork then
      begin
           TActivityNetwork(g).GetCriticalActivities( G[0] as TAOEEvent, G[G.NodeCount-1] as TAOEEvent, ListBox3.Items, i );
           ListBox3.Items.Insert( 0, 'Critical Tasks: ' );
           ListBox3.Items.Add('Earliest Project Completion Time: '+ IntToStr( i ) );
           ListBox3.Items.Add('Tasks and their criticality (how long each task may' );
           ListBox3.Items.Add('take without increasing project completion time)' );
           for i := 0 to G.NodeCount - 1 do
               with G.Node[i] as TAOEEvent do
               begin
                    for j := 0 to EdgeCount - 1 do
                        ListBox3.Items.Add((Edge[j] as TAOETask).Name +' Criticality: '+IntToStr(TAOETask(Edge[j]).Criticality) );
               end;
      end;
 end;

Reference

•ActivityNetwork.TActivityNetwork.GetCriticalActivities(TAOEEvent,TAOEEvent,TStrings,Integer)

•ActivityNetwork.TActivityNetwork.GetCriticalGraph(TAOEEvent,TAOEEvent,TActivityNetwork)

•ActivityNetwork.TAOEEvent

•ActivityNetwork.TAOETask

•TActivityNetwork

•ActivityNetwork