Procedure

TfrmProbCmt.bbOKClick

Module

fProbCmt

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmProbCmt

Declaration

procedure bbOKClick(Sender: TObject);

Calls Hierarchy


TfrmProbCmt.bbOKClick
 └FMToday
   └FMNow

Calls

Name Declaration Comments
FMToday function FMToday: TFMDateTime; -


Source

75    procedure TfrmProbCmt.bbOKClick(Sender: TObject);
76    begin
77      if (edComment.Text <> '') then
78        begin
79          if Pos('^', edComment.Text) > 0 then
80          begin
81            InfoBox(TX_INVALID_CHAR, TC_INVALID_CHAR, MB_ICONERROR);
82            fCmtResult := '';
83            ModalResult := mrNone;
84          end
85          else
86          begin
87            fCmtResult := '1^'+FormatFMDateTime('mmm dd yyyy',FMToday)+'^'+ edComment.Text;
88            ModalResult := mrOK;
89          end;
90        end
91      else
92        begin
93          fCmtResult := '';
94          ModalResult := mrNone;
95        end;
96    end;