Считывание 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]?

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

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

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

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