Procedure

TfrmODAllergy.memCommentsExit

Module

fODAllgy

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public/Published

Owner

TfrmODAllergy

Declaration

procedure memCommentsExit(Sender: TObject);

Calls Hierarchy


TfrmODAllergy.memCommentsExit
 └TfrmODAllergy.ControlChange
   ├TResponses.Clear
   ├TResponses.Update
   │ ├TResponses.FindResponseByName
   │ └TResponses.IENForPrompt
   ├ValidDateTimeStr
   └TResponses.GetOrderText
     ├TResponses.NextInstance
     ├TResponses.FindResponseByName
     ├TResponses.FormatResponse
     │ └TResponses.FindResponseByIEN
     └TResponses.AppendChildren
       ├TResponses.FindPromptByIEN
       ├TResponses.FindResponseByIEN
       └TResponses.FormatResponse...

Calls

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


Source

316   procedure TfrmODAllergy.memCommentsExit(Sender: TObject);
317   var
318     AStringList: TStringList;
319   begin
320     inherited;
321     AStringList := TStringList.Create;
322     try
323       FastAssign(memComments.Lines, AStringList);
324       LimitStringLength(AStringList, 74);
325       QuickCopy(AstringList, memComments);
326       ControlChange(Self);
327     finally
328       AStringList.Free;
329     end;
330   end;