Procedure

TPCESkin.Assign

Directives

Override

Module

uPCE

Last Modified

7/15/2014 3:26:36 PM

Comments

TPCESkin methods -------------------------------------------------------------------------

Visibility

Public

Overrides

TPCEItem.Assign

Owner

TPCESkin

Declaration

procedure Assign(Src: TPCEItem); override;

Calls Hierarchy


TPCESkin.Assign
 └TPCEItem.Assign
   └TPCEItem.SetComment

Called-By Hierarchy


                          TPCESkin.Assign
                  TPCEData.SetSkinTests┘ 
                                  Add┤   
          TfrmRemDlg.btnFinishClick┘ │   
   TfrmEncounterFrame.UpdateEncounter┘   
        TfrmEncounterFrame.SendData┤     
TfrmEncounterFrame.FormCloseQuery┘ │     
  TfrmEncounterFrame.FormCloseQuery┘     

Calls

Name Declaration Comments
TPCEItem.Assign procedure Assign(Src: TPCEItem); virtual; -

Called-By

Name Declaration Comments
TPCEData.SetSkinTests procedure SetSkinTests(Src: TStrings; FromForm: boolean = TRUE); -


Source

1072  procedure TPCESkin.Assign(Src: TPCEItem);
1073  var
1074    SKSrc: TPCESkin;
1075  
1076  begin
1077    inherited Assign(Src);
1078    SKSrc := TPCESkin(Src);
1079    Results := SKSrc.Results;
1080    Reading := SKSrc.Reading;
1081    DTRead  := SKSrc.DTRead;
1082    DTGiven := SKSrc.DTGiven;
1083    if Results = '' then Results := NoPCEValue;
1084  end;