| Class TBufTstForm (unit BufTst1) |
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;