RiverSoftAVG Products Help

Zoom Window Out
Larger Text | Smaller Text
Hide Page Header
Show Expanding Text
Printable Version
Send Mail Feedback
Save Permalink URL

Navigation: Code Documentation > RSCommon > ActivityNetwork > Classes > TActivityNetwork > Methods

TActivityNetwork.GetCriticalActivities(TAOEEvent,TAOEEvent,TStrings,Integer) Method

Returns a TStrings object containing all the critical activities in the network between the StartEvent and FinishEvent parameters.

A critical activity is an TAOETask object where the EarliestStartTime and LatestStartTime properties equal, in other words a task that can neither start early nor delay starting without affecting the entire project's completion time.

The TStrings object may be passed in using the Path parameter or, if this parameter is nil, the method will allocate a TStrings object for which you are responsible for freeing. The String property of the TStrings contains the TAOETask Name property and the Objects property contains the TAOETask itself. This function also returns the total project earliest completion time in the PathTime parameter.

Namespace: ActivityNetwork

Parameters

StartEvent

Type: TAOEEvent

FinishEvent

Type: TAOEEvent

Path

Type: TStrings

PathTime

Type: Integer

Return Value

Type: 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;

RiverSoftAVG Products Help

Return Value

Reference