Форум: "Базы";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];
ВнизКак использовать TableLevel? Найти похожие ветки
← →
Mick (2001-12-05 12:11) [3]Еще раз
with TTable.Create(nil) do
try
TableType:=ttDBase;
TableLevel:=3;
DatabaseName:="C:\Test";
TableName:="Dbase 3 Level Table.dbf";
{$IFDEF VER140}
FieldDefs.Add("FirstField",ftBCD);
FieldDefs.Add("SecondField",ftString,10);
{$ELSE}
with FieldDefs.Add
begin
DataType:=ftBCD;
Name:="FirstField";
end;
with FieldDefs.Add do
begin
DataType:=ftString;
Name:="SecondField";
Size:=10;
end;
{$ENDIF}
CreateTable;
finally
Free;
end;
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.008 c