Procedure

TProbRec.SetDateString

Module

uProbs

Last Modified

7/15/2014 3:26:44 PM

Comments

C:char;
  days:longint;

Visibility

Private

Owner

TProbRec

Declaration

procedure SetDateString(df:TKeyVal;value:string);

Calls Hierarchy


TProbRec.SetDateString
 └StrToFMDateTime

Called-By Hierarchy


                        TProbRec.SetDateString
                       TProbRec.SetModDatStr┤ 
                TfrmProblems.UpdateProblem┤ │ 
           TfrmProblems.lstProbActsClick┘ │ │ 
       TfrmProblems.wgProbDataDblClick┤   │ │ 
             TfrmProblems.lstViewClick┘   │ │ 
     TfrmProblems.HighlightDuplicate┘     │ │ 
           TfrmProblems.AddProblem┤       │ │ 
TfrmProblems.lstProbActsClick...┤ │       │ │ 
   TfrmProblems.lstProbPickClick┤ │       │ │ 
TfrmProblems.lstProbPickDblClick┤ │       │ │ 
TfrmProblems.edProbEntKeyPress┘ │ │       │ │ 
        TfrmProblems.UMPLLexicon┘ │       │ │ 
     TfrmdlgProb.bbChangeProbClick┘       │ │ 
                   TfrmdlgProb.bbFileClick┘ │ 
                       TProbRec.SetEntDatStr┤ 
                     TProbRec.SetOnsetDatStr┤ 
                   TfrmdlgProb.bbFileClick┘ │ 
                     TProbRec.SetCodeDateStr┤ 
               TfrmDiagnoses.UpdateProblem┘ │ 
      TfrmDiagnoses.lbxSectionClickCheck┘   │ 
                       TProbRec.SetResDatStr┤ 
             TfrmProblems.UpdateProblem...┤ │ 
                   TfrmdlgProb.bbFileClick┘ │ 
                       TProbRec.SetRecDatStr┘ 
                   TfrmdlgProb.bbFileClick┘   

Calls

Name Declaration Comments
StrToFMDateTime function StrToFMDateTime(const AString: string): TFMDateTime; -

Called-By

Name Declaration Comments
TProbRec.SetCodeDateStr procedure SetCodeDateStr(value: String); -
TProbRec.SetEntDatStr procedure SetEntDatStr(value:string); -
TProbRec.SetModDatStr procedure SetModDatStr(value:string); -
TProbRec.SetOnsetDatStr procedure SetOnsetDatStr(value:string); -
TProbRec.SetRecDatStr procedure SetRecDatStr(value:string); -
TProbRec.SetResDatStr procedure SetResDatStr(value:string); -


Source

774   procedure TProbRec.SetDateString(df:TKeyVal;value:string);
775   var
776     {c:char;
777     days:longint;}
778     fmresult: double ;
779   begin
780     {try  }
781     if (value = '') then
782       begin
783         df.Intern := '';
784         df.Extern := '';
785       end
786     else
787       begin
788         fmresult := StrToFMDateTime(value) ;
789         if fmresult = -1 then
790           begin
791             df.intern := '0';
792             df.extern := '';
793           end
794         else
795           begin
796             df.intern := Piece(FloatToStr(fmresult),'.',1);
797             df.extern := FormatFMDateTime('mmm dd yyyy',fmresult);
798           end ;
799       end;
800   end;