Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Пропадают значащие цифры [D6, IB6.x, Paradox]

MVVD © (2003-05-28 16:58:00)
При копировании данных из INTERBASE в PARADOX цифры округляются до двух знаков после запятой. Почему?

Reindeer Moss Eater (2003-05-28 17:57:00) [1]
Используй тип поля в Парадоксе BCD с четырьмя знаками после запятой и будет счастие тебе.

Johnmen (2003-05-28 17:48:00) [2]
>MVVD © (28.05.03 17:42)
>Johnmen! Другого и не ожидал

Я рад, что оправдал твои ожидания...:)))))))

MVVD (2003-05-28 17:42:00) [3]
Johnmen! Другого и не ожидал

Johnmen (2003-05-28 17:39:00) [4]
Рекомендую :
http://ln.com.ua/~openxs/articles/smart-questions-ru.html

Zz_ (2003-05-28 17:34:00) [5]
Если в DBD смотришь - нажми F2

MVVD (2003-05-28 17:29:00) [6]
Это таблицы: Дата и три числа

Zacho (2003-05-28 17:28:00) [7]

> MVVD © (28.05.03 17:19)

Какие типы у полей в Paradox и IB ? TKCB и TKursCB это что ? TTable ?

MVVD (2003-05-28 17:28:00) [8]
В дополнение. DATAPUMP дает такой-же результат

MVVD (2003-05-28 17:27:00) [9]
В INTERBASE есть и 4 знака после запятой, а в PARADOXе остается два знака после запятой.

Anatoly Podgoretsky (2003-05-28 17:23:00) [10]
И где здесь два знака и где они в Парадоксе, в нем же нет формата с фиксированной запятой, все что можно задать только длину поля, но не количество знаков после запятой.

MVVD (2003-05-28 17:19:00) [11]
Вот код:
Dmod.TKursCB.DisableControls;
Dmod.TKCB.DisableControls;
DMod.TKCB.Active := False;DMod.TKCB.EmptyTable;DMod.TKCB.Active := True;
Dmod.TKursCB.First;
While (not Dmod.TKursCB.Eof) do begin
DMod.TKCB.Insert;
DMod.TKCB.FieldByName("DATA").AsDateTime := DMod.TKursCB.FieldByName("DATA").AsDateTime;
DMod.TKCB.FieldByName("US").AsFloat := DMod.TKursCB.FieldByName("US").AsFloat;
DMod.TKCB.FieldByName("DM").AsFloat := DMod.TKursCB.FieldByName("DM").AsFloat;
DMod.TKCB.FieldByName("EURO").AsFloat := DMod.TKursCB.FieldByName("EURO").AsFloat;
DMod.TKCB.Post;
Dmod.TKursCB.Next;
end;
Dmod.TKCB.Active:=False;
Dmod.TKursCB.EnableControls;
Dmod.TKCB.EnableControls;

Johnmen (2003-05-28 17:16:00) [12]
Цифры не могут округляться по причине своей извечной округленности до одного знака...:)

Zacho (2003-05-28 17:11:00) [13]

> MVVD © (28.05.03 16:58)

Потому что так копируешь. Без более подробной информации и куска кода (или без телепатических способностей) ничего более определенного сказать нельзя.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »