RunTime Создание DBF-III таблицы

← →
TAG_SPB © (2002-10-25 11:16) [0]

Коллеги! помогите:
Прочитал ФАКу и создаю 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) [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 - не нужно!

RunTime Создание DBF-III таблицы Найти похожие ветки