Class

TPatientFlag

Module

uOrPtf

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Inherits from

TObject

Declaration


TPatientFlag = Class(TObject)
private
  FFlagID:   string;
  FName: string;
  FNarr: TStringList;
  FFlagIndex: integer;
public
  property FlagID: string      read FFlagID  write FFlagID;
  property Name:   string      read FName    write FName;
  property Narr:   TStringList read FNarr    write FNarr;
  property FlagIndex: integer  read FFlagIndex write FFlagIndex;
  constructor Create;
  procedure Clearup;
end;

Class Hierarchy


TObject
 └TPatientFlag

Class Fields

Name Type Scope Comments
FFlagID UnicodeString Private -
FFlagIndex Integer Private -
FName UnicodeString Private -
FNarr TStringList Private -

Properties

Name Type Scope Comments
FlagID UnicodeString Public -
FlagIndex Integer Public -
Name UnicodeString Public -
Narr TStringList Public -

Constructors

Name Declaration Scope Comments
Create constructor Create; Public -

Methods

Name Declaration Scope Comments
Clearup procedure Clearup; Public -