GetFieldFloat returns a length of a fractinal part of the specified field.
var
dbf :integer;
r, f :integer;
begin
dbf := OpenBase( 'filename.dbf' );
if dbf <> 0 then
begin
for f := 0 to FieldCount( dbf )-1 do
begin
write( GetFieldName(dbf, f) );
write(' -- ');
write( GetFieldType(dbf, f) );
write(' -- ');
write(inttostr( GetFieldSize(dbf, f) ));
write(' -- ');
write(inttostr( GetFieldFloat(dbf, f) ));
writeln('');
end;
CloseBase(dbf);
end;
end.
|
