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
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;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
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;
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;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
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;