TDBF wih decimal places...
lazarus / 16-Databases

----------------------------------------------------------------------
lublinkermi · 2010-11-22 17:45

I saw many examples to create dbf files like :
<code>
MyDbf.FilePathFull := '/location/to/my/data';
MyDbf.TableLevel := 7;
MyDbf.TableName := 'customers.dbf'; // note: is the .dbf really
required?
With MyDbf.FieldDefs do begin
  Add('Id', ftAutoInc, 0, True);
  Add('Name', ftString, 80, True);
End;
</code>

How I can generate numeric fields with 3 decimal places clipper
compatible databases (level 3) ?

----------------------------------------------------------------------
igorz · 2010-11-28 10:56

Quote from: lublinkermi on November 22, 2010, 06:45:10 pmI saw many
examples to create dbf files like :
<code>
MyDbf.TableName := 'customers.dbf'; // note: is the .dbf really
required?
</code>
I think '.dbf' is not required.

Quote from: lublinkermi on November 22, 2010, 06:45:10 pmHow I can
generate numeric fields with 3 decimal places clipper compatible
databases (level 3) ?
From my code:
<code>
    Dbf.TableLevel := 3;
    Dbf.FieldDefs.Add('PLATSUMM',ftBCD,9,false);   // 9 digits
    with Dbf.FieldDefs do Items[Count-1].Precision := 2; // 2 digits
</code>

---
Igor

----------------------------------------------------------------------
lublinkermi · 2010-12-15 08:06

It's works!
Thank You very much!