Function

IsNumericRate

Module

fODMedIV

Last Modified

7/15/2014 3:26:42 PM

Scope

Local

Local subprogram to

ControlChange

Declaration

function IsNumericRate(const x: string): Boolean;

Called-By Hierarchy


                           IsNumericRate
             TfrmODMedIV.ControlChange┘ 
  TfrmODMedIV.SetValuesFromResponses┤   
           TfrmODMedIV.SetupDialog┤ │   
 TfrmODMedIV.cboSolutionMouseClick┘ │   
     TfrmODMedIV.cboSolutionExit┘   │   
           TfrmODMedIV.cboTypeChange┤   
        TfrmODMedIV.ClearAllFields┘ │   
          TfrmODMedIV.InitDialog┤   │   
        TfrmODMedIV.FormCreate┘ │   │   
      TfrmODMedIV.cmdRemoveClick┘   │   
         TfrmODMedIV.chkDoseNowClick┤   
             TfrmODMedIV.chkPRNClick┤   
TfrmODMedIV.cboSolutionMouseClick...┤   
       TfrmODMedIV.cboAddFreqCloseUp┤   
     TfrmODMedIV.cboAddFreqKeyDown┘ │   
       TfrmODMedIV.cboDurationChange┤   
   TfrmODMedIV.cboInfusionTimeChange┤   
       TfrmODMedIV.cboPriorityChange┤   
          TfrmODMedIV.cboRouteChange┤   
   TfrmODMedIV.txtAllIVRoutesClick┘ │   
     TfrmODMedIV.cboRouteKeyDown┘   │   
   TfrmODMedIV.cboAdditiveMouseClick┤   
       TfrmODMedIV.cboAdditiveExit┘ │   
       TfrmODMedIV.txtSelectedChange┤   
       TfrmODMedIV.cboScheduleChange┤   
           TfrmODMedIV.txtNSSClick┘ │   
  TfrmODMedIV.cboScheduleKeyDown┘   │   
      TfrmODMedIV.cboSelectedCloseUp┤   
    TfrmODMedIV.cboSelectedKeyDown┘ │   
          TfrmODMedIV.cmdRemoveClick┤   
      TfrmODMedIV.txtXDurationChange┤   
        TfrmODMedIV.txtXDurationExit┤   
           TfrmODMedIV.txtRateChange┘   

Called-By

Name Declaration Comments
TfrmODMedIV.ControlChange procedure ControlChange(Sender: TObject); -


Source

1938  function IsNumericRate(const x: string): Boolean;
1939  var
1940    i: Integer;
1941  begin
1942    Result := True;
1943    for i := 1 to Length(x) do if not (x[i] in ['0'..'9','.']) then Result := False;
1944  end;