Delphi + FoxPro

[Alexcrool]

Добрый день!
Имеется таблица dbf. В ней поле K_KSG Numeric (13,10).
Открываю таблицу в Delphi XE4 и это поле содержит только целые числа, а должно дробное.
Открывал через BDE Table, TADOQuery Microsoft dBASE Driver, даже через Visual FoxPro OLE DB Provider, который я установил сайта Microsoft. Результат один и тот же. Вместо вещественного числа - целое.
Может кто-то помочь открыть файл правильно, что бы данные были верны?

P.S. Программа "Редактор DBF" открывает верно.

[Аватар]

Там по идее тип возвращаемого поля должен быть ftBCD, а у него в делфи ограничение 4 знака после точки. На отображение можно у поля DisplayFormat установить, чего-то типа '#0.##########'. Со свойством EnableBCD у адошных компонет поиграться, но возможна потеря точности. Или искать уже адаптированный датасет

[Serge_Bliznykov]

кинул на форму TDBF, привязал к гриду.
всё нормально вроде бы
Dbf_tview(exe).rar
пароль на архив 1234


ksg.png


"код" программы

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, Grids, DBGrids, dbf, dbf_dbffile, dbf_fields, StdCtrls;

type
  Tform1 = class(TForm)
    Dbf1: TDbf;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  form1: Tform1;

implementation

{$R *.dfm}

procedure Tform1.FormCreate(Sender: TObject);
begin
  // если в заголовке DBF файла не задана кодовая страница,
  //   то "по умолчанию" будем считать,
  // что кодовая страница 866 (она же OEM, она же DOS кодировка)
  DbfGlobals.DefaultOpenCodePage := GetOEMCP;

  dbf1.Open;

end;

end.

p.s. не ожидал, что тема Delphi + FoxPro актуальна в 2019 году

p.p.s. TBDF - это очень простой формат. По сути - это тестовый файл с заголовком. Его очень просто читать и писать.
(правда, только не с memo полями, там всё непросто).

[Alexcrool]

Спасибо за быстрый ответ.
У меня отсутствует TDBF. Если никакого другого решения не найду буду использовать его. Сам FoxPro не использую, но мне кидают классификаторы и справочники в этом формате для обновления моих таблиц. Завтра попробую с маской. На сегодня мой раб. день кончился.
Все кроме поставщика возращают это поле как TBCDField а поставщик FoxPro как TFmtBCDField.

[Аватар]

Можно попробовать создать адошный датасет с предопределенными полями, и для таких полей вместо TBCDField создать TFMTBCDField поля. У них уж точно нет такого ограничения. Это в теории, не было необходимости заниматься такими вещами )

поставщик FoxPro как TFmtBCDField

Так там должно быть по идее все нормально, разве что маску на отображение еще добавить

[Alexcrool]

Маска не помогает. При открытии dbf стандартными средствами поле K_KSG отображается целочисленным.
Может кто-то еще предложить варианты, кроме применения TDBF?