Запись в DBF дробного числа ...

[raniel]

Добрый день(вечер) всем.
Делаю экспорт в DBF. Всё отлично выгружает....кроме числовых значений. Нужно выгрузить дробное число у которого 8 знаков после запятой.
Выгружаю вот так

CREATE(DBFBase);
DBFBase.Open('DRIVER=Microsoft dBASE Driver (*.dbf);DRIVERID=277;DBQ=' + ended Properties=DBASE IV;Persist Security Info=FALSE;');
CREATE(DbfRecords);

REPEAT
...
    DbfRecords.Fields().Item('XVAL').Value := TABLE.XVAL;
...
UNTIL ...

Смотрю по дебагеру значение в TABLE.XVAL нормально все 8 знаков. В Таблице DBF свойство поля нормально... 8 знаков... но записывает грубо говоря вот так 25.59710000 вместо 25.59712234
Понимаю что Навижн тут непричём.

DBFBase Automation 'Microsoft ActiveX Data Objects 6.0 Library'.Connection
DbfRecords Automation 'Microsoft ActiveX Data Objects 6.0 Library'.Recordset
Как выйти из данной ситуации???

[raniel]

Не уж то никто с этим не сталкивался?

[Eugeny_F]

Пардон, фигню написал

[raniel]

Eugeny_F а как я обрадовался увидев Ваше сообщение...думал ну наконец то....вот моё спасение

[Eugeny_F]

Извиняюсь, что не оправдал Ваши ожидание. А что, если попробовать написать
DbfRecords.Fields().Item('XVAL').Value := TABLE.XVAL * 1 000 000;

Если все знаки перейдут тогда можно попробовать потом полученную сумму обратно на миллион поделить.

Опять конечно ерунду написал, но вдруг поможет

[InTacto]

Переводите число в строку и уже текст пишите в DBF.

[raniel]

Увы всё это не то... и со строкой не выйдет. Решение оказалось проще. Подкючился использую драйвера FoxPro

dbf.Open('Provider=VFPOLEDB;Data Source=пустькфайлу');

И через sql-запрос. Вставил данные. Всё записалось как надо.
Жаль что

DbfRecords.AddNew

Не работает при таком провайдере.
Вопрос закрыт.