Class

TPCESkin

Module

uPCE

Last Modified

7/15/2014 3:26:36 PM

Scope

Interfaced

Inherits from

TPCEItem

Declaration


  TPCESkin = class(TPCEItem)  
  {class for skin tests}
  public
//    Provider:  Int64; {jm 9/8/99}
    Results:   String;                   //Do not confuse for reserved word "result"
    Reading:   Integer;
    DTRead:    TFMDateTime;
    DTGiven:   TFMDateTime;
    procedure Assign(Src: TPCEItem); override;
    procedure Clear; override;
    function DelimitedStr: string; override;
//    function delimitedStrC: string;
    function ItemStr: string; override;
    procedure SetFromString(const x: string); override;
    function HasCPTStr: string; override;
  end;

Class Hierarchy


TObject
 └TPCEItem
   └TPCESkin

Class Fields

Name Type Scope Comments
DTGiven TFMDateTime Public -
DTRead TFMDateTime Public -
Reading Integer Public -
Results UnicodeString Public
Provider:  Int64; {jm 9/8/99}

Do not confuse for reserved word "result"

Methods

Name Declaration Scope Comments
Assign procedure Assign(Src: TPCEItem); override; Public TPCESkin methods -------------------------------------------------------------------------
Clear procedure Clear; override; Public Clear fields(properties) of class
DelimitedStr function DelimitedStr: string; override; Public
Function TPCESkin.DelimitedStr: string;
modified: 6/17/98
By: Robert Bott
Location: ISL
Purpose: Add Comments to PCE Items.

created delimited string to pass to broker
HasCPTStr function HasCPTStr: string; override; Public
Function TPCESkin.delimitedStrC: string;
begin
  Result := inherited DelimitedStr;
  Result := 'SK' + Result + U + results + U + IntToStr(Provider) + U +
   IntToStr(Reading) + U + U + U + comment;
end;
ItemStr function ItemStr: string; override; Public
Function delimitedStrC: string;
returns string to be assigned to Tlist in PCEData object
SetFromString procedure SetFromString(const x: string); override; Public Sets fields to pieces passed from server: TYP ^ Code ^ Category ^ Narrative ^ Qty ^ Prov

Referenced By (21)

Module (line) Referrer Type
fReminderDialog (1422) - Read
fSkinTest (54) - Unknown
fSkinTest (76) - Unknown
fSkinTest (151) - Read
fSkinTest (171) - Read
fSkinTest (196) - Read
uPCE (1074) - Read
uPCE (1078) - Read
uPCE (1657) - Read
uPCE (1738) - Read
uPCE (1783) - Read
uPCE (1998) - Read
uPCE (2126) - Read
uPCE (2193) - Read
uPCE (2198) - Read
uPCE (2456) - Read
uPCE (2461) - Read
uPCE (2465) - Read
uPCE (2481) - Read
uPCE (2760) - Read
uPCE (2910) - Read