RunTime Создание DBF-III таблицы [D3, dBase, FoxPro]
TAG_SPB © (2002-10-25 11:16:00)
Коллеги! помогите:
Прочитал ФАКу и создаю DBF-таблицу :
VAR DBFTable:TTable;
BEGIN
DBFTable:=TTable.Create(Self);
DBFTable.TableName :="Test.dbf";
DBFTable.TableType:=ttDBase;
DBFTable.TableLevel:=3; // DBase-III
DBFTable.FieldDefs.Clear;
DBFTable.FieldDefs.Add("FIELD1",ftString,100,false);
DBFTable.CreateTable;
и здесь получаю Error:Invalid Parametr
если закомментирую строчку с TableLevel создается таблица с
Level=7.
Если при этом в BDE принудительно выставить
DRIVERS\DBASE\LEVEL=3, таблица тоже
создается. Level=3, есс-но, но так делать некрасиво...
Что у меня не так?
(D3,BDE5,WinXP)
TAG_SPB (2002-10-25 11:30:00) [1]
Как плохо быть глупым! смотрите :
VAR DBFTable:TTable; Param:TStringList;
BEGIN
param:=TStringList.Create;
param.Add("LANGDRIVER=db866ru0"); //dBASE RUS cp866
param.Add("LEVEL=3");
session.ModifyDriver("DBASE",param);
param.Free;
DBFTable:=TTable.Create(Self);
...далее по тексту,причем DBFTable.TableType - не
нужно!
Наверх 
ЧАТ |
Орешник |
|
