Уровень таблицы TableLevel

← →
Chris © (2003-01-24 15:14) [0]

Пытаюсь создать dBase-IV, ставлю TableLevel=4, а прога все равно делает базу с седьмым уровнем.
Вариант через BDE Administrator мне не подходит, т.к. мне необходимо сделать такую же базу и с седьмым уровнем

← →
Reindeer Moss Eater (2003-01-24 15:17) [1]

Наверное используются типы полей, не поддерживаемые в запрошенной версии

← →
Anatoly Podgoretsky © (2003-01-24 15:23) [2]

А о чем говорить без кода, о средней температуре по больнице, даже проблема полностью не объяснена, так общие слова.

← →
Reindeer Moss Eater (2003-01-24 15:28) [3]

Не решаюсь напомнить об этом автору вопроса. А то снова назовут п ежоном :)

← →
Chris © (2003-01-24 15:50) [4]

Хорошо.
Краткое описание. Процедура копирует данные из одной базы в другую 4-й версии драйвера.

var FileDBF: string;
Tab1, Tab2: TTable;
begin
Tab1:=TTable.Create(NIL);
Tab2:=TTable.Create(NIL);
Tab1.DatabaseName:=ExtractFilePath(FileDBF);
Tab1.TableName:="Table3.dbf";
Tab1.TableType:=ttdBase;
Tab2.DatabaseName:=Tab1.DatabaseName;
Tab2.TableName:="Table3_IV.dbf";
Tab2.TableType:=ttdBase;
if FileExists(Tab2.DatabaseName+Tab2.TableName) then
DeleteFile(Tab2.DatabaseName+Tab2.TableName);
Tab2.TableLevel:=4; //Устанавливаю уровень драйвера dBaseIV
Tab1.Active:=True;
Tab2.FieldDefs.Assign(Tab1.FieldDefs);
Tab2.CreateTable;
Tab2.Active:=True;
While not Tab1.Eof do
begin
Tab2.Insert;
for i:=0 to Tab1.FieldDefs.Count-1 do
Tab2.Fields[i].AsString:=Tab1.Fields[i].AsString;
Tab2.Post;
Tab1.Next;
end;
Tab1.Close;
Tab2.Close;
Tab1.Free;
Tab2.Free;

← →
Reindeer Moss Eater (2003-01-24 16:10) [5]

Наверное используются типы полей, не поддерживаемые в запрошенной версии

как предположение, с BDE у меня плохо :(.

поменять местами вот так, что будет?
...
Tab1.Active:=True;
Tab2.FieldDefs.Assign(Tab1.FieldDefs);
Tab2.TableLevel:=4; //Устанавливаю уровень драйвера dBaseIV
Tab2.CreateTable;
...

> sniknik
Увы, мысль хорошая, но результат тот же - TableLevel все-равно равен 7

Уровень таблицы TableLevel Найти похожие ветки