![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Непонятная ошибка
Nic (ro) © (2007-03-18 14:45:00)Если раскомментировать закомментированную строку, то вылазит ошибка "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 19:36:00) [1]
> Anatoly Podgoretsky © (18.03.07 18:55) [9]
Теперь мне всё ясно, спасибо.
Anatoly Podgoretsky (2007-03-18 18:55:00) [2]> Nic (ro) (18.03.2007 17:11:05) [5]
Add is provided for backward compatibility. !!!
И какой еще размер для ftInteger - это тип с предопределенным размером.
Nic (ro) (2007-03-18 17:35:00) [3]sniknik © (18.03.07 17:29) [6]
Ну вот как это называется? ;) На той же странице автор книги пишет, что " естественноэто свойство ставим таким-то" и на той же странице нерабочий пример.
Nic (ro) (2007-03-18 17:32:00) [4]В хелпе не нашлось, но методом проб-ошибок заработал следующий вариант:
Table1.FieldDefs.Add('Telephone', ftInteger, 0, True);
sniknik (2007-03-18 17:29:00) [5]> Из книги взял ;)
книгу сжечь!
> Посмотрим хелп.
не надо писать "посмотрю" надо посмотреть... усилий гораздо меньше. (ну или, если нравится обо всех своих действиях писать, то пиши подробнее - "нужму мышкой на окно дельфи, нажму кнопку "A"...d.d.F.i.e.l.d.D.e.f и т.д. .... в завершение жму F1... оргазм... ;о))
(честное слово достает это, "посмотрю", "попробую" и т.д. при том, что действие проше некуда, нет чтобы посмотреть сразу и написать потом "посмотрел. не получилось... это..." время бы свое (на наше то тебе плевать. понятно) сэкономил)
> Если кто знает как правильно, напишите плиз.
да все знают (кому не лень F1 нажать...), но писать не будут... не принято тут это. элементаршину только намекнуть могут, ну или просто послать... в хелп, доки, гугл... :)
Nic (ro) (2007-03-18 17:11:00) [6]
> 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]
Посмотрим хелп.
Если кто знает как правильно, напишите плиз.
Desdechado (2007-03-18 15:56:00) [7]> что требуется ставить на другой компьютер, чтобы на нём
> программа сумела работать с БД Парадокс?
БДЕ
Можно включить в инсталлятор программы.
clickmaker (2007-03-18 15:31:00) [8]
> [1] Nic (ro) (18.03.07 14:45)
неправильный у тебя пример, значит
F1 - TFieldDefs.AddFieldDef - example
Anatoly Podgoretsky (2007-03-18 14:47:00) [9]> Nic (ro) (18.03.2007 14:45:00) [0]
Откуда у Integer размер 10?
Nic (ro) (2007-03-18 14:45:00) [10]invalid field s ize