function GetFileType(dbf :integer): integer; — DBF Script

GetFileType returns a type of a dbf file.

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.