Procedure

TfrmGAF.LoadScores

Module

fGAF

Last Modified

7/15/2014 3:26:36 PM

Visibility

Private

Owner

TfrmGAF

Declaration

procedure LoadScores;

Calls Hierarchy


TfrmGAF.LoadScores
 ├RecentGAFScores
 │ └GAFOK
 └TfrmPCEBaseGrid.SyncGridData
   ├TfrmPCEBaseGrid.SaveGridSelected
   ├TfrmPCEBaseGrid.RestoreGridSelected
   └TfrmPCEBaseGrid.SyncGridHeader

Called-By Hierarchy


    TfrmGAF.LoadScores
TfrmGAF.FormActivate┘ 
  TfrmGAF.FormShow┤   
TfrmGAF.FormCreate┘   

Calls

Name Declaration Comments
RecentGAFScores procedure RecentGAFScores(const Limit: integer); -
TfrmPCEBaseGrid.SyncGridData procedure SyncGridData; -

Called-By

Name Declaration Comments
TfrmGAF.FormActivate procedure FormActivate(Sender: TObject); -


Source

61    procedure TfrmGAF.LoadScores;
62    var
63      i: integer;
64      tmp: string;
65    
66    begin
67      RecentGAFScores(3);
68      if(RPCBrokerV.Results.Count > 0) and (RPCBrokerV.Results[0] = '[DATA]') then
69      begin
70        for i := 1 to RPCBrokerV.Results.Count-1 do
71        begin
72          tmp := RPCBrokerV.Results[i];
73          lbGrid.Items.Add(Piece(tmp,U,5) + U + Piece(Piece(tmp,U,2),NoPCEValue,1) + U +
74                                    Piece(tmp,U,7) + U + Piece(tmp,U,8));
75        end;
76      end;
77      if(lbGrid.Items.Count > 0) then
78        SyncGridData
79      else
80        lbGrid.Items.Add('No GAF scores found.');
81    end;