function GetFieldType(dbf, f :integer): string;

GetFieldType returns a type 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.