Class TAddressBook (unit Addrbook)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);

========================== TAddressBook component =======================


Functions

procedure AddEntry(entry: TAddressBookEntry);


procedure DeleteEntry(number: integer);


function FindEntry(firstname,lastname,address: string): integer;


procedure ModifyEntry(number: integer; a: TAddressBookEntry);


destructor Destroy;


function GetEntry(num: integer): TAddressBookEntry;


procedure SetDirectory(dir: string);


procedure WriteEntries;


Properties

property Directory : string


property NumEntries : integer


property Items : TAddressBookEntry


Events

event OnChange : TNotifyEvent


Variables

Entries : array[1..16000] of TAddressBookEntryPtr;


EntriesModified : Boolean;


FDirectory : string;


FDummyInt : integer;


FNumEntries : integer;


FOnChange : TNotifyEvent;



Constructors


constructor Create(AOwner: TComponent);

========================== TAddressBook component =======================


Functions


procedure AddEntry(entry: TAddressBookEntry);


procedure DeleteEntry(number: integer);


function FindEntry(firstname,lastname,address: string): integer;


procedure ModifyEntry(number: integer; a: TAddressBookEntry);


destructor Destroy;


function GetEntry(num: integer): TAddressBookEntry;


procedure SetDirectory(dir: string);


procedure WriteEntries;


Properties


property Directory : string


property NumEntries : integer


property Items : TAddressBookEntry


Events


event OnChange : TNotifyEvent


Variables


Entries : array[1..16000] of TAddressBookEntryPtr;


EntriesModified : Boolean;


FDirectory : string;


FDummyInt : integer;


FNumEntries : integer;


FOnChange : TNotifyEvent;