Create Table(Virtual)

← →
MasterHelpMe (2003-01-29 18:57) [0]

Помогите пожалуйста!
необходимо создать таблицу (виртуально (чтобы на диске ее небыло а была в памяти) и работать с ней. или чтото в этом роде

← →
Денис Курьин © (2003-01-29 19:03) [1]

Процедура такая:
with TblVirtual do begin if Active = True then Active := False; TableType := ttParadox; TableName:="RisLink"; if not Exists then begin with FieldDefs do begin Clear; Add("Field1",ftInteger,0,True); Add("Field2",ftString,255,False); Add("Field3",ftFmtMemo,0,False); Add("Field4",ftFloat,0,False); end;//with FieldDefs with IndexDefs do begin Clear; Add("","Field1",[ixPrimary]); end; CreateTable; end; Active := True; end;//with TblVirtual
Пробуй.

← →
BlackTiger (2003-01-29 20:22) [2]

А еще проще не изобретать велосипед, а взять любую MemoryTable.

← →
MsGuns © (2003-01-29 21:01) [3]

>Денис Курьин © (29.01.03 19:03)

А какой компонент скрывается под лэйблом TblVirtual ? Что-то мне шепочет, что это TTable ;) В этом случае табла будет вовсе не вируальная, а очень даже реально разместится на диске.

← →
gsu © (2003-01-29 23:06) [4]

угу, поддерживаю

← →
Tux (2003-01-29 23:37) [5]

Возьмите вы епрст ADO recordset, ну что может быть удобнее...

TClientDataSet.CreateDataSet;

Create Table(Virtual) Найти похожие ветки