Paradox Version Number of a table 1

[Stretchwickster]

Hi,

Is it possible to access the Paradox version number of a table at run-time?

Your help would me much appreciated

 

[footpad]

Stretchwickster,

Yes, as shown in this very crude (and quickly tossed together example:

uses BDE;

function GetTableLevel(DBHandle: hdbiObj; var TableLevel: longint): word;
begin
  Result := 0;
  Check( DbiGetProp( hdbiObj( DBHandle ), curTableLevel, @TableLevel,
      sizeof(TableLevel), Result));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   liLevel : LongInt;
begin
   getTableLevel(  hdbiObj( Table1.Handle ), liLevel );
   showMessageFmt( '%s is a Level %u table.',
                   [  Table1.TableName, liLevel ] );
end;

Note: This assumes a) a recent version of Delphi, b) you're using tBDEDatasets to connect to your Paradox data, c) that the dataset is active and actually points to a Paradox table. You'll probably want more error-checking in your final application.

Hope this helps...

-- Lance