Class

TPCEProviderList

Module

uPCE

Last Modified

7/15/2014 3:26:36 PM

Scope

Interfaced

Inherits from

TORStringList

Declaration


TPCEProviderList = class(TORStringList)
private
  FNoUpdate: boolean;
  FOnPrimaryChanged: TNotifyEvent;
  FPendingDefault: string;
  FPendingUser: string;
  FPCEProviderIEN: Int64;
  FPCEProviderName: string;
  function GetProviderData(Index: integer): TPCEProviderRec;
  procedure SetProviderData(Index: integer; const Value: TPCEProviderRec);
  function GetPrimaryIdx: integer;
  procedure SetPrimaryIdx(const Value: integer);
  procedure SetPrimary(index: integer; Primary: boolean);
public
  function Add(const S: string): Integer; override;
  function AddProvider(AIEN, AName: string; APrimary: boolean): integer;
  procedure Assign(Source: TPersistent); override;
  function PCEProvider: Int64;
  function PCEProviderName: string;
  function IndexOfProvider(AIEN: string): integer;
  procedure Merge(AList: TPCEProviderList);
  procedure Clear; override;
  procedure Delete(Index: Integer); override;
  function PrimaryIEN: int64;
  function PrimaryName: string;
  function PendingIEN(ADefault: boolean): Int64;
  function PendingName(ADefault: boolean): string;
  property ProviderData[Index: integer]: TPCEProviderRec read GetProviderData
                                                        write SetProviderData; default;
  property PrimaryIdx: integer read GetPrimaryIdx write SetPrimaryIdx;
  property OnPrimaryChanged: TNotifyEvent read FOnPrimaryChanged
                                         write FOnPrimaryChanged;
end;

Class Hierarchy


Class Fields

Name Type Scope Comments
FNoUpdate Boolean Private -
FOnPrimaryChanged TNotifyEvent Private -
FPCEProviderIEN Int64 Private -
FPCEProviderName UnicodeString Private -
FPendingDefault UnicodeString Private -
FPendingUser UnicodeString Private -

Properties

Name Type Scope Comments
OnPrimaryChanged TNotifyEvent Public -
PrimaryIdx Integer Public -
ProviderData Array (static) Public -

Methods

Name Declaration Scope Comments
Add function Add(const S: string): Integer; override; Public TPCEProviderList
AddProvider function AddProvider(AIEN, AName: string; APrimary: boolean): integer; Public -
Assign procedure Assign(Source: TPersistent); override; Public -
Clear procedure Clear; override; Public -
Delete procedure Delete(Index: Integer); override; Public -
GetPrimaryIdx function GetPrimaryIdx: integer; Private -
GetProviderData function GetProviderData(Index: integer): TPCEProviderRec; Private -
IndexOfProvider function IndexOfProvider(AIEN: string): integer; Public -
Merge procedure Merge(AList: TPCEProviderList); Public -
PCEProvider function PCEProvider: Int64; Public -
PCEProviderName function PCEProviderName: string; Public -
PendingIEN function PendingIEN(ADefault: boolean): Int64; Public -
PendingName function PendingName(ADefault: boolean): string; Public -
PrimaryIEN function PrimaryIEN: int64; Public -
PrimaryName function PrimaryName: string; Public -
SetPrimary procedure SetPrimary(index: integer; Primary: boolean); Private -
SetPrimaryIdx procedure SetPrimaryIdx(const Value: integer); Private -
SetProviderData procedure SetProviderData(Index: integer; const Value: TPCEProviderRec); Private -

Referenced By (14)

Module (line) Referrer Type
fEncounterFrame (119) uProviders Read
fEncounterFrame (547) - Read
fPCEProvider (32) NoPrimaryPCEProvider Read
fPCEProvider (47) - Read
uPCE (35) Merge Read
uPCE (224) TPCEData Read
uPCE (327) TPCEData Read
uPCE (349) SetDefaultProvider Read
uPCE (802) - Read
uPCE (1638) - Read
uPCE (3408) - Read
uPCE (3528) - Read
uPCE (3532) - Read
uPCE (3534) - Read