Function

TfrmODDiet.GetDaysOfWeek

Module

fODDiet

Last Modified

7/15/2014 3:26:42 PM

Visibility

Private

Owner

TfrmODDiet

Declaration

function GetDaysOfWeek: string;

Called-By Hierarchy


                    TfrmODDiet.GetDaysOfWeek
                       TfrmODDiet.Validate┤ 
                               ..(rec)..┘ │ 
                       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); -
TfrmODDiet.Validate procedure Validate(var AnErrMsg: string); override; -


Source

1610  function TfrmODDiet.GetDaysOfWeek: string;
1611  begin
1612    Result := '';
1613    if chkMonday.Checked    then Result := Result + 'M';
1614    if chkTuesday.Checked   then Result := Result + 'T';
1615    if chkWednesday.Checked then Result := Result + 'W';
1616    if chkThursday.Checked  then Result := Result + 'R';
1617    if chkFriday.Checked    then Result := Result + 'F';
1618    if chkSaturday.Checked  then Result := Result + 'S';
1619    if chkSunday.Checked    then Result := Result + 'X';
1620  end;