Скачать: CL | DM;

Считывание dBase таблиц   Найти похожие ветки 

← →
Катерина ©   (2002-05-29 14:20) [0]

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

---

← →
Lusha ©   (2002-05-29 15:25) [1]

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

---

← →
Катерина ©   (2002-05-29 17:05) [2]

Значит по порядку.
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 17:15) [3]

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

---

← →
Катерина ©   (2002-05-29 17:23) [4]

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

---

← →
Lusha ©   (2002-05-29 17:34) [5]

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

---

← →
Катерина ©   (2002-05-29 17:42) [6]

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

---

← →
Lusha ©   (2002-05-29 17:45) [7]

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

---

← →
Катерина ©   (2002-05-29 17:50) [8]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c