Paradox Version of a Database Table 1

[Stretchwickster]

The following code was submitted a while back in this forum to enable me to access the Paradox Version number (e.g 5 or 7), it seemed to work at first but it seems to be quite unpredictable now and does not always return a number I can use as the version number. Can anyone suggest any way of rectifying this? Your help would be much appreciated

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;

 

[PascalKlaus]

What about
Table1.TableLevel ?

 

[Stretchwickster]

Thank you so much! I didn't realise it was that easy!!! Thanks again!