Class TNetSales (unit Netsales)

Inherits from

TList

Constructors


constructor Create;

********************************************************** TNetSales


Functions

procedure SetCurrent(const Value: integer);


procedure Add_One(ID, Info: String);

Force to update

procedure Add_OneNoNotify(ID, Info: String);


procedure Clear;


procedure Delete_Current;

LastItem

destructor Destroy;


procedure First;


function GetCurrentID: string;

get strings from Current object

function GetCurrentInfo: TStringList;


function GetCurrentInfoAsString: String;


function IsCurrentValid: bool;


procedure Last;


procedure Next;

navigation

procedure Prior;


procedure ReadFromIni(Ini: TIniFile);


procedure UpdateCurrentID(aID: String);

update strings in Current object

procedure UpdateCurrentInfo(aInfo: TStringList);


procedure UpdateCurrentInfoAsString(aInfo: String);


procedure WriteToIni(Ini: TIniFile);


Properties

property Current : Integer

property

Events

event OnChange : TNotifyEvent


Variables

FCurrent : Integer;


FOnChange : TNotifyEvent;



Constructors


constructor Create;

********************************************************** TNetSales


Functions


procedure SetCurrent(const Value: integer);


procedure Add_One(ID, Info: String);

Force to update


procedure Add_OneNoNotify(ID, Info: String);


procedure Clear;


procedure Delete_Current;

LastItem


destructor Destroy;


procedure First;


function GetCurrentID: string;

get strings from Current object


function GetCurrentInfo: TStringList;


function GetCurrentInfoAsString: String;


function IsCurrentValid: bool;


procedure Last;


procedure Next;

navigation


procedure Prior;


procedure ReadFromIni(Ini: TIniFile);


procedure UpdateCurrentID(aID: String);

update strings in Current object


procedure UpdateCurrentInfo(aInfo: TStringList);


procedure UpdateCurrentInfoAsString(aInfo: String);


procedure WriteToIni(Ini: TIniFile);


Properties


property Current : Integer

property


Events


event OnChange : TNotifyEvent


Variables


FCurrent : Integer;


FOnChange : TNotifyEvent;