Procedure

TfrmODCslt.memReasonExit

Module

fODConsult

Last Modified

7/15/2014 3:26:34 PM

Visibility

Public/Published

Owner

TfrmODCslt

Declaration

procedure memReasonExit(Sender: TObject);

Calls Hierarchy


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

Calls

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


Source

805   procedure TfrmODCslt.memReasonExit(Sender: TObject);
806   var
807     AStringList: TStringList;
808   begin
809     inherited;
810     AStringList := TStringList.Create;
811     try
812       //QuickCopy(memReason, AStringList);
813       AStringList.Text := memReason.Text;
814       LimitStringLength(AStringList, 74);
815       //QuickCopy(AstringList, memReason);
816       memReason.Text := AStringList.Text;
817       ControlChange(Self);
818     finally
819       AStringList.Free;
820     end;
821   end;