» Компонент Tdbf в Delphi 6

Скачиваю отсюда http://sourceforge.net/project/showfiles.php?group_id=34085&package_id=54025&release_id=247571 , вроде устанавливаю, как надо, сам компонент появляется на странице Samples, но даже скачанная с того сайта демобд ( http://sourceforge.net/project/showfiles.php?group_id=34085&package_id=54594&release_id=209804) не хочет работать, в частности нет свойства index у компонента.
Delphi 6, WinXP
Помогите, может у кого есть опыт работы

Какая версия компонента? У меня все работает.

ranc
6.3.6
можешь какой нибудь примерчик с основами скинуть?

Я с индексами не работаю, но:
там есть такое свойство "IndexName", где выбираешь имя индекса (если они определены). А вообще индексы описаны в свойстве "Indexes"

ranc
да мне любой пример кода, в котором обычные операции создание/редактирование и проч

Smog
TDBF работает как часы!
Вот, например, выдержка из рабочего проекта
Ничего примечательного, но все же ...

Цитата:

DBF1.FilePath := ExtractFilePath(DFileName);
DBF1.TableName := ExtractFileName(DFileName);
DBF1.Open;
with DBF1 do
begin
Append;
FieldByName('F1').AsString := 'Something';
FieldByName('F2').AsString := 'SomethingElse';
Post;
end;

MrZeRo

Цитата:

DFileName

это что?

Smog
IMHO, это полный путь+имя файла-базы данных DBF.
А вообще работа с TDbf практически ничем не отличается от работы с TTable, кроме, конечно, маленьких своих ньюансов. Например, мне так и не удалось сделать, чтобы связать 2 базы на TDbf по master-detail.

ranc
Вычисляемые поля используешь?
Если используешь, в Гриде отображаешь?
Онинормально работают?
Просто у меня простейшее вычисляемое показывается только в одной записи в гриде.
Если не трудно, сделай такой код в OnCalcFields (создай вычисляемое поле 'TestString типа строка).
Begin
DataSet.FieldByName('TestString').asstring = '1';
end;

Должно быть 1 во всех записях с этим полем.

ладно, у меня заработало вроде все после удаления/повторной установки компонента.
Кто мне скажет, можно ли создавать базу данных програмно и сохранять ее в файл, а то DBF1.FilePath := ExtractFilePath(DFileName); выдает ошибку "файл не найден"?

Smog

Цитата:

procedure CreateTable ;
Call CreateTable at runtime to create a table using this datasets current definitions. If the
table already exists, CreateTable overwrites the tables structure and data.
If the FieldDefs property contains values, these values are used to create field definitions.
Otherwise the Fields property is used. One or both of these properties must contain values
in order to create a database table.
If the Indexes property contain values, these values are used to create indexes on the table.

Цитата:

procedure CreateTableEx ( DbfFieldDefs : TDbfFieldDefs );
Call CreateTableEx to create a table using given field definitions. These dbf field definitions
give more power, as you can specify precision for numeric fields, for example.

Это из документации по TDbf. Надеюсь, понятно, или нужно разъяснить?

ranc

Цитата:

Надеюсь, понятно, или нужно разъяснить?

это понятно, а как ее в файле сохранить?

Smog
1. Устанавлавается FilePath - каталог, где будет создаваться таблица (например, 'C:\')
2. Устанавливается TableName - имя создаваемой таблицы (например, '1.dbf')
3. Заполняется FieldDefs - какие поля нужны
4. Вызывается метод CreateTable