0 = dBase III 1 = FoxPro 2 = dBase IV 3 = Visual FoxPro 4 = SMT 7 = dBase Level 7
var dbf :integer; r :integer; begin dbf := OpenBase( 'filename.dbf' ); if dbf <> 0 then begin writeln('type = ' + inttostr( GetFileType(dbf) ) ); CloseBase(dbf); end; end.
