Class TTestForm (unit Test) |
TForm
This version has been tested with Delphi 2.0 and seems to work fine.
This does NOT work with 16-bit Delphi! The 16-bit version is in a file
called inmemory.zip.
This is an exmple of how to use TInMemoryTable and TTempTable.
See inmem.pas and temptbl.pas for more information.
WARNING! THIS CODE IS PROVIDED AS IS WITH NO GUARANTEES OF ANY KIND!
USE THIS AT YOUR OWN RISK - YOU ARE THE ONLY PERSON RESPONSIBLE FOR
ANY DAMAGE THIS CODE MAY CAUSE - YOU HAVE BEEN WARNED!
Have Fun!
Gregory Trubetskoy Constructors Functions Properties Events Variables Constructors Functions teble name Set private directory link the grid on the form to this table Properties Events Variables Public declarations
procedure FormCreate(Sender: TObject);
procedure IndexButtonClick(Sender: TObject);
procedure InMemoryButtonClick(Sender: TObject);
procedure Label1DblClick(Sender: TObject);
procedure TempButtonClick(Sender: TObject);
Bevel1 : TBevel;
Bevel2 : TBevel;
Bevel3 : TBevel;
DBGrid1 : TDBGrid;
DBGrid2 : TDBGrid;
IndexButton : TButton;
InMemoryButton : TButton;
InMemoryDataSource : TDataSource;
Label1 : TLabel;
TableNameLabel : TLabel;
TempButton : TButton;
TempDataSource : TDataSource;
MyInMemoryTable : TInMemoryTable;
MyTempTable : TTempTable;
procedure FormCreate(Sender: TObject);
procedure IndexButtonClick(Sender: TObject);
procedure InMemoryButtonClick(Sender: TObject);
procedure Label1DblClick(Sender: TObject);
procedure TempButtonClick(Sender: TObject);
Bevel1 : TBevel;
Bevel2 : TBevel;
Bevel3 : TBevel;
DBGrid1 : TDBGrid;
DBGrid2 : TDBGrid;
IndexButton : TButton;
InMemoryButton : TButton;
InMemoryDataSource : TDataSource;
Label1 : TLabel;
TableNameLabel : TLabel;
TempButton : TButton;
TempDataSource : TDataSource;
MyInMemoryTable : TInMemoryTable;
MyTempTable : TTempTable;