Class TBufTstForm (unit BufTst1)

Inherits from

TForm

If the symbol TABLE is defined, the program will use a TTable as data source } { else, it will use a MWBuffer. This will demonstrate the polymorphism and } { similar behaviour between a TTable and a TMWBuffer. } { To define/undefine the symbol TABLE, add or remove the '$' sign after the } { open brace on the next line } {DEFINE TABLE

Constructors



Functions

procedure CreateButtonClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure DeleteButtonClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure FirstButtonClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure FormCreate(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure FormDestroy(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure FormShow(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure LastButtonClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure NextButtonClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure PriorButtonClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure CreateData;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure DisplayData;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

function Field(nIndex : Integer) : String;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

function Info : String;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure ShowCurrent;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

Properties

Events

Variables

BofCheckBox : TCheckBox;


CreateButton : TButton;


DataSource1 : TDataSource;


DBGrid1 : TDBGrid;


DeleteButton : TButton;


EofCheckBox : TCheckBox;


FirstButton : TButton;


Label1 : TLabel;


LastButton : TButton;


Memo1 : TMemo;


MWBuffer1 : TMWBuffer;


MWTable1 : TMWTable;


NextButton : TButton;


Panel1 : TPanel;


PriorButton : TButton;


Table1 : TTable;


FBuffer : PChar;


FData : TMWBuffer;


FInitialized : Boolean;


FSize : Integer;



Constructors


Functions


procedure CreateButtonClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure DeleteButtonClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure FirstButtonClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure FormCreate(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure FormDestroy(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure FormShow(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure LastButtonClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure NextButtonClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure PriorButtonClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure CreateData;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure DisplayData;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


function Field(nIndex : Integer) : String;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


function Info : String;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure ShowCurrent;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


Properties


Events


Variables


BofCheckBox : TCheckBox;


CreateButton : TButton;


DataSource1 : TDataSource;


DBGrid1 : TDBGrid;


DeleteButton : TButton;


EofCheckBox : TCheckBox;


FirstButton : TButton;


Label1 : TLabel;


LastButton : TButton;


Memo1 : TMemo;


MWBuffer1 : TMWBuffer;


MWTable1 : TMWTable;


NextButton : TButton;


Panel1 : TPanel;


PriorButton : TButton;


Table1 : TTable;


FBuffer : PChar;


FData : TMWBuffer;


FInitialized : Boolean;


FSize : Integer;