Procedure

ReverseList

Module

fProbs

Last Modified

7/15/2014 3:26:38 PM

Comments

SCCond, tmpSCstr: string;

Scope

Local

Local subprogram to

LoadPatientProblems

Declaration

procedure ReverseList(Alist:TstringList);

Called-By Hierarchy


                                  ReverseList
           TfrmProblems.LoadPatientProblems┘ 
            TfrmProblems.lstProbActsClick┤   
        TfrmProblems.wgProbDataDblClick┤ │   
              TfrmProblems.lstViewClick┘ │   
      TfrmProblems.HighlightDuplicate┘   │   
            TfrmProblems.AddProblem┤     │   
 TfrmProblems.lstProbActsClick...┤ │     │   
    TfrmProblems.lstProbPickClick┤ │     │   
 TfrmProblems.lstProbPickDblClick┤ │     │   
 TfrmProblems.edProbEntKeyPress┘ │ │     │   
         TfrmProblems.UMPLLexicon┘ │     │   
      TfrmdlgProb.bbChangeProbClick┘     │   
                TfrmProblems.LoadProblems┤   
               TfrmProblems.DisplayPage┤ │   
TfrmProblems.mnuViewRestoreDefaultClick┤ │   
                  TfrmProblems.FormShow┘ │   
              TfrmProblems.RestoreProblem┤   
       TfrmProblems.lstProbActsClick...┘ │   
                    TfrmdlgProb.FormClose┘   

Called-By

Name Declaration Comments
TfrmProblems.LoadPatientProblems procedure LoadPatientProblems(AList:TstringList;const status:char;init:boolean); -


Source

1009  procedure ReverseList(Alist:TstringList);
1010  var
1011    i,j:integer;
1012  begin
1013    i:=0;
1014    j:=pred(Alist.count);
1015    while i<j do
1016      begin
1017        alist.exchange(i,j);
1018        inc(i);
1019        dec(j);
1020      end;
1021  end;