Procedure

TfrmODProc.memReasonExit

Module

fODProc

Last Modified

7/15/2014 3:26:34 PM

Visibility

Public/Published

Owner

TfrmODProc

Declaration

procedure memReasonExit(Sender: TObject);

Calls Hierarchy


TfrmODProc.memReasonExit
 └TfrmODProc.ControlChange
   ├TResponses.Update
   │ ├TResponses.FindResponseByName
   │ └TResponses.IENForPrompt
   ├TfrmODProc.updateService
   │ ├TfrmODProc.setup508Label
   │ └TResponses.Update...
   └TResponses.GetOrderText
     ├TResponses.NextInstance
     ├TResponses.FindResponseByName
     ├TResponses.FormatResponse
     │ └TResponses.FindResponseByIEN
     └TResponses.AppendChildren
       ├TResponses.FindPromptByIEN
       ├TResponses.FindResponseByIEN
       └TResponses.FormatResponse...

Calls

Name Declaration Comments
TfrmODProc.ControlChange procedure ControlChange(Sender: TObject); -


Source

519   procedure TfrmODProc.memReasonExit(Sender: TObject);
520   var
521     AStringList: TStringList;
522   begin
523     inherited;
524     AStringList := TStringList.Create;
525     try
526       AStringList.Text := memReason.Text;
527       LimitStringLength(AStringList, 74);
528       memReason.Text := AStringList.Text;
529       ControlChange(Self);
530     finally
531       AStringList.Free;
532     end;
533   end;