Function

TfrmODDiet.TFStrengthCode

Module

fODDiet

Last Modified

7/15/2014 3:26:42 PM

Visibility

Private

Owner

TfrmODDiet

Declaration

function TFStrengthCode(const x: string): Integer;

Called-By Hierarchy


                 TfrmODDiet.TFStrengthCode
            TfrmODDiet.TFSetAmountForRow┤ 
   TfrmODDiet.SetValuesFromResponsesTF┤ │ 
              TfrmODDiet.SetupDialog┤ │ │ 
     TfrmODDiet.cboProductMouseClick┘ │ │ 
         TfrmODDiet.cboProductExit┘   │ │ 
            TfrmODDiet.cboStrengthExit┤ │ 
            TfrmODDiet.txtQuantityExit┘ │ 
                     TfrmODDiet.TFChange┘ 
TfrmODDiet.SetValuesFromResponsesTF...┤   
    TfrmODDiet.cboProductMouseClick...┤   
          TfrmODDiet.cboStrengthChange┤   
            TfrmODDiet.cboStrengthExit┤   
          TfrmODDiet.txtQuantityChange┤   
            TfrmODDiet.txtQuantityExit┤   
           TfrmODDiet.cmdTFRemoveClick┘   

Called-By

Name Declaration Comments
TfrmODDiet.TFChange procedure TFChange(Sender: TObject); -
TfrmODDiet.TFSetAmountForRow procedure TFSetAmountForRow(ARow: Integer); -


Source

1365  function TfrmODDiet.TFStrengthCode(const x: string): Integer;
1366  begin
1367    Result := 0;
1368    if      x = '1/4'  then Result := 1
1369    else if x = '1/2'  then Result := 2
1370    else if x = '3/4'  then Result := 3
1371    else if x = 'FULL' then Result := 4;
1372  end;