Class TInMemoryTable (unit Inmem16)

Inherits from

TTable

Constructors



Functions

procedure CreateTable;

This is where all the fun happens.

function CreateHandle: HDBICur;

luckely this function is virtual - so I could override it.

procedure EncodeFieldDesc(var FieldDesc: FLDDesc; const Name: string; DataType: TFieldType; Size: Word);

This function is cut-and-pasted from the VCL source code.

Properties

Events

Variables

hCursor : hDBICur;



Constructors


Functions


procedure CreateTable;

This is where all the fun happens. I copied this function from the VCL source and then changed it to use DbiCreateInMemoryTable instead of DbiCreateTable. Since InMemory tables do not support Indexes - I took all of the index-related things out


function CreateHandle: HDBICur;

luckely this function is virtual - so I could override it. In the original VCL code for TTable this function actually opens the table - but since we already have the handle to the table - we just return it


procedure EncodeFieldDesc(var FieldDesc: FLDDesc; const Name: string; DataType: TFieldType; Size: Word);

This function is cut-and-pasted from the VCL source code. I had to do this because it is declared private in the TTable component so I had no access to it from here.


Properties


Events


Variables


hCursor : hDBICur;