Function

TfrmODDiet.GetMealTime

Module

fODDiet

Last Modified

7/15/2014 3:26:42 PM

Visibility

Private

Owner

TfrmODDiet

Declaration

function GetMealTime: string;

Called-By Hierarchy


                      TfrmODDiet.GetMealTime
                            MealTimePassed┤ 
                     TfrmODDiet.Validate┘ │ 
                             ..(rec)..┘   │ 
                    TfrmODDiet.Validate...┤ 
                       TfrmODDiet.ELChange┘ 
     TfrmODDiet.SetValuesFromResponsesEL┤   
                TfrmODDiet.SetupDialog┘ │   
                 TfrmODDiet.grpMealClick┤   
TfrmODDiet.SetValuesFromResponsesEL...┘ │   
             TfrmODDiet.calELStartChange┤   
              TfrmODDiet.calELStopChange┘   
TfrmODDiet.SetValuesFromResponsesEL...┘     

Called-By

Name Declaration Comments
TfrmODDiet.ELChange procedure ELChange(Sender: TObject); -
MealTimePassed function MealTimePassed: Boolean; -
TfrmODDiet.Validate procedure Validate(var AnErrMsg: string); override; -


Source

1599  function TfrmODDiet.GetMealTime: string;
1600  begin
1601    Result := '';
1602    if radET1.Checked then Result := radET1.Caption;
1603    if radET2.Checked then Result := radET2.Caption;
1604    if radET3.Checked then Result := radET3.Caption;
1605    if radLT1.Checked then Result := radLT1.Caption;
1606    if radLT2.Checked then Result := radLT2.Caption;
1607    if radLT3.Checked then Result := radLT3.Caption;
1608  end;