Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Проблема с размерностью создаваемых полей [D4, dBase, FoxPro]

_Grey_ © (2002-05-03 22:27:00)
Подскажите пожалуйста!

Я создаю таблицу следующим образом:
----------------------------
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?

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

_grey_ (2002-05-05 11:28:00) [1]
<Derr
Vse rabotaet! Spasibo ogromnoe!!!

Derr (2002-05-04 10:09:00) [2]
if savedialog1.execute then
begin
if FileExists(savedialog1.filename) then
DeleteFile(savedialog1.filename);
//QUERY.DataSource

_Grey_ (2002-05-04 00:44:00) [3]
<suds
А вы попробуйте что нибудь другое поставить!
У меня Delphi например ругается, потому что для ftSmallint нельзя задавать размерность...

suds (2002-05-03 22:38:00) [4]
дык у тебя везде размер 0 стоит...
"Add("NTIP", ftSmallint, -> 0,false);"

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »