Проблема с размерностью создаваемых полей

← →
_Grey_ (2002-05-03 22:27) [0]

Подскажите пожалуйста!

Я создаю таблицу следующим образом:
----------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
table1:TTable;
begin
Table1:=TTable.Create(nil);
With Table1 do
begin
DatabaseName:="DBDemos";
TableName:="c:\mytest.dbf";
TableType:=ttFoxPro;
With FieldDefs do
begin
Add("TIP", ftString, 1,false);
Add("NTIP", ftSmallint, 0,false);
Add("NOM", ftSmallint, 0,false);
Add("PARAM", ftFloat, 0,false);
Add("ISTOK", ftSmallint, 0,false);
Add("STOK", ftSmallint, 0,false);
Add("NACHZ", ftFloat, 0,false);
end;
CreateTable;
end;
end;
----------------------------
но у меня размеры получаемых полей следующие:
----------------------------

1 Tip C 1
2 NTIP N 6 0
3 NOM N 6 0
4 PARAM N 20 4
5 ISTOK N 6 0
6 STOK N 6 0
7 NACHZ N 20 4
----------------------------
а мне надо:
----------------------------
1 Tip C 1
2 NTIP N 1 0
3 NOM N 2 0
4 PARAM N 11 4
5 ISTOK N 2 0
6 STOK N 2 0
7 NACHZ N 11 4
----------------------------
как это сделать, но только программным путем и только с таблице FoxPro?

Заранее Спасибо!

← →
suds (2002-05-03 22:38) [1]

дык у тебя везде размер 0 стоит...
"Add("NTIP", ftSmallint, -> 0,false);"

← →
_Grey_ (2002-05-04 00:44) [2]

<suds
А вы попробуйте что нибудь другое поставить!
У меня Delphi например ругается, потому что для ftSmallint нельзя задавать размерность...

← →
Derr (2002-05-04 10:09) [3]

if savedialog1.execute then
begin
if FileExists(savedialog1.filename) then
DeleteFile(savedialog1.filename);
//QUERY.DataSource

← →
_grey_ (2002-05-05 11:28) [4]

<Derr
Vse rabotaet! Spasibo ogromnoe!!!

Проблема с размерностью создаваемых полей Найти похожие ветки