Непонятная ошибка

← →
Nic (ro) (2007-03-18 14:45) [0]

Если раскомментировать закомментированную строку, то вылазит ошибка "Invalid field Suze".
Пример взят из книги Вячеслава Понамарёва "Самоучитель БД в Дельфи 7". Подскажите, в чём ошибка?
И ещё, что требуется ставить на другой компьютер, чтобы на нём программа сумела работать с БД Парадокс?

procedure TForm1.Button1Click(Sender: TObject); begin Table1.Close; Table1.Databasename := "C:\My"; Table1.TableName := "MyTable"; Table1.TableType := ttParadox; Table1.FieldDefs.Clear; Table1.FieldDefs.Add("Number", ftAutoInc, 0, True); Table1.FieldDefs.Add("Name", ftString, 35, True); //Table1.FieldDefs.Add("Telephone", ftInteger, 10, True); - тут косяк! Table1.IndexDefs.Clear; Table1.IndexDefs.Add("", "Number", [ixPrimary, ixUnique]); Table1.IndexDefs.Add("indName", "Name", [ixCaseInsensitive]); Table1.CreateTable; Table1.IndexName:="indName"; Table1.Active := True; end;

← →
Nic (ro) (2007-03-18 14:45) [1]

invalid field size

← →
Anatoly Podgoretsky © (2007-03-18 14:47) [2]

> Nic (ro) (18.03.2007 14:45:00) [0]

Откуда у Integer размер 10?

← →
clickmaker © (2007-03-18 15:31) [3]

> [1] Nic (ro) (18.03.07 14:45)

неправильный у тебя пример, значит
F1 - TFieldDefs.AddFieldDef - example

← →
Desdechado © (2007-03-18 15:56) [4]

> что требуется ставить на другой компьютер, чтобы на нём
> программа сумела работать с БД Парадокс?
БДЕ
Можно включить в инсталлятор программы.

← →
Nic (ro) (2007-03-18 17:11) [5]

> Anatoly Podgoretsky © (18.03.07 14:47) [2]

Из книги взял ;)

Если заменить на
Table1.FieldDefs.Add("Telephone", ftInteger, SizeOf(Integer), True);
то та же проблема.

Desdechado © (18.03.07 15:56) [4]
Спасибо.

clickmaker © (18.03.07 15:31) [3]
Посмотрим хелп.

Если кто знает как правильно, напишите плиз.

← →
sniknik © (2007-03-18 17:29) [6]

> Из книги взял ;)
книгу сжечь!

> Посмотрим хелп.
не надо писать "посмотрю" надо посмотреть... усилий гораздо меньше. (ну или, если нравится обо всех своих действиях писать, то пиши подробнее - "нужму мышкой на окно дельфи, нажму кнопку "A"...d.d.F.i.e.l.d.D.e.f и т.д. .... в завершение жму F1... оргазм... ;о))
(честное слово достает это, "посмотрю", "попробую" и т.д. при том, что действие проше некуда, нет чтобы посмотреть сразу и написать потом "посмотрел. не получилось... это..." время бы свое (на наше то тебе плевать. понятно) сэкономил)

> Если кто знает как правильно, напишите плиз.
да все знают (кому не лень F1 нажать...), но писать не будут... не принято тут это. элементаршину только намекнуть могут, ну или просто послать... в хелп, доки, гугл... :)

← →
Nic (ro) (2007-03-18 17:32) [7]

В хелпе не нашлось, но методом проб-ошибок заработал следующий вариант:
Table1.FieldDefs.Add("Telephone", ftInteger, 0, True);

← →
Nic (ro) (2007-03-18 17:35) [8]

sniknik © (18.03.07 17:29) [6]
Ну вот как это называется? ;) На той же странице автор книги пишет, что "естественно это свойство ставим таким-то" и на той же странице нерабочий пример.

> Nic (ro) (18.03.2007 17:11:05) [5]

Add is provided for backward compatibility. !!!
И какой еще размер для ftInteger - это тип с предопределенным размером.

← →
Nic (ro) (2007-03-18 19:36) [10]

Непонятная ошибка Найти похожие ветки