| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Считывание dBase таблиц [D6, dBase, FoxPro]

Катерина ©   (2002-05-29 14:20:00) 

У меня возникла след. ситуация: я считываю dBase таблицу, где указана точность поля - 6, а длина - 11. BDE - настроен (BCDEnable = TRUE), DataBaseName b TableType для таблицы указаны. Но при считывании берется только 4 знака, 2 последних десятичных знака пропадает. Таблица сформирована программой на Delphi, в Excel`e и пр. просматривается, 6 дес. знаков присутствует. Что делать?

---

Катерина   (2002-05-29 17:50:00) [1]

Брошу пример на мыло. Ладно?

---

Lusha   (2002-05-29 17:45:00) [2]

Пару чисел для примера кинь... Будет время - посмотрю...

---

Катерина   (2002-05-29 17:42:00) [3]

Я их потом снова записываю в другую таблицу (поле настроено N(11,6)) или текстовый файл (формирую каталог) (...FormatFloat("0.000000",Ylat^[i])), а у меня везде 2 последние цифры - 0. И в Watch`e тоже смотрела - 4 цифры после после точки.

---

Lusha   (2002-05-29 17:34:00) [4]

Не знаю, не грузился... Я его и в первой не использовал...
А при помощи чего ты анализируешь значения Ylat^[i]?

---

Катерина   (2002-05-29 17:23:00) [5]

А разве типы Real и Double не эквивалентны, начиная с 4 версии delphi?

---

Lusha   (2002-05-29 17:15:00) [6]

А использовать double вместо real не пробовала?

---

Катерина   (2002-05-29 17:05:00) [7]

Значит по порядку.
BDE, алиас dBASE IV Files:
type STANDARD
default driver DBASE
enable BCD TRUE
path пусто
Конфинурация DBASE:
ver. 4.0
type FILE
lang. "ascii" ANSI
level 5
mdx bl. 1024
memo...1024

...
with Table do
begin
Active := FALSE; Tablename := OpenDialog.filename;
DataBaseName := "dBASE IV Files"; TableType := ttDBASE;
Active := TRUE;

f_lat := Table.Fields.FindField("Latitude");

MemSize := RecordCount*SizeOf(real);
GetMem(Ylat,MemSize);
for i := 1 to RecordCount do
Ylat^[i] := f_lat.AsFloat;
close;
end;
...
FreeMem(Ylat,MemSize);
end;

и при просмотре все Ylat^[i] имеют 4 знака после точки, хотя в таблице (я смотрела) присутствую все 6!

---

Lusha   (2002-05-29 15:25:00) [8]

Привет, Катюх... :)
Давай по порядку... Кусочек кода, значения Databasename и настройки соответствующих TDatabase компонент...

---

Наверх