Delphi (*.dbf)

[VadEr]

Приветствую!

Посоветуйте что нибудь?
в dbf есть поле Numeric размером 12 (7 дробные). Проблема в том, что прога на delphi не может записать в базу целое из 5 символов (только 4). Хотя Foxpro это делает за счет символа из дробной части
Эта проблема решаема с помощью delphi?

[Serge_Bliznykov]

через MS FoxPro OLE DB Provider пробовали писать?
Возможно, у него будет такое же поведение, как и у FoxPro....

[mss]

Foxpro это делает за счет символа из дробной части

Это как это так ?)

Хочу, к примеру, записать в поле NUMERIC(12,7) значение 12345.
Ты утверждаешь что Фокс сохранит его в этом поле как 1234.5 ?
Это же нонсенс)..
Но даже если гипотетически предположить успех такого фокуса, то при считывании поля Фокс откуда, спрашивается, узнает, что ст.разряд дробной части был "арендован" для хранения мл.разряда целой части ?

[VadEr]

к сожалению вся работа через Advantage (компонент TADSTable) - другого не дано

[VadEr]

Сообщение от mss

Ты утверждаешь что Фокс сохранит его в этом поле как 1234.5 ?

нет если я пишу 1234, то будет: 1234.0000000
а если 12345,               то: 12345.000000

расширить поле начальство не позволит

[mss]

если я пишу 1234, то будет: 1234.0000000

Так это же не "за счет дробной части")
Строго ж наоборот - дробная часть расширяется за счет неиспользованной целой !
Абсолютно нормальное для Фокса поведение ..

Ну да ладно, вернемся к нашим баранам)..

прога на delphi не может записать в базу целое из 5 символов (только 4)

Наверно вот прямо так и говорит "не могу" ?

[mss]

пишу 1234, то будет: 1234.0000000

Вообще говоря эта "фича", если она и работает (по дифолту или опционально) в каких-то фоксовых реализациях, видится мне абсолютно бестолковой.

[VadEr]

Сообщение от mss

Строго ж наоборот - дробная часть расширяется за счет неиспользованной целой !

Нет всего 12 символов (7 на дробь, 1 на точку, 4 на целое)
в моем случае фокс умудряется целое расширить до 5 знаков. Это поведение необходимо реализовать через delphi

Сообщение от mss

Наверно вот прямо так и говорит "не могу" ?

Именно так и пишет: Numeric out of range.

[Apostol13]

в делфи ето возможно = )
Есть переменная K и пусть она принадлежит Real
все что надо, так ето округлить ее до нужного десятка следующим образом:

   K:=12345,12345; // вот такое K
     // если округлим до едениц 
   K:=(round(K)/1); // получим [12345]
     // если округлим до сотых долей 
   K:=(round(K)/-2); // [12345,12]
     // если округлим до статысячных долей 
   K:=(round(K)/-5); // [12345,12345]

при необходимости можно описать действие с К прямо в скобках перед округлением.

[Serge_Bliznykov]

к сожалению вся работа через Advantage (компонент TADSTable) - другого не дано

Тогда к чему вопрос?

Если Вы работаете через него и он строго следит за соблюдением заданной в таблице размерности поля (что, в общем-то, логично!), а не так, как FoxPro допускает вольности..
И не позволяет Вам писать размерность БОЛЬШУЮ, чему указано в заголовке (структуре) таблицы, то что Вы от нас хотите то?
Нужно или менять способ(метод/компоненты) доступа к данным или смириться с тем, что есть...
Или что Вы ожидали услышать?!