paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-26 18:51:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fcl-db: backlinks: allow clearing backlinks in any tablelevel

Browse Source 
git-svn-id: trunk@28021 -
This commit is contained in:
reiniero 2014-06-21 09:05:51 +00:00
parent 115a64d62c
commit 4515ff7b77
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-db/src/dbase/dbf.pas
View File

@ -2216,7 +2216,9 @@ end;
procedure TDbf.SetBackLink(NewBackLink: String); procedure TDbf.SetBackLink(NewBackLink: String);
begin begin
// Only supported in Visual Foxpro but allow auto-upgrade from Foxpro // Only supported in Visual Foxpro but allow auto-upgrade from Foxpro
if not(Tablelevel in [TDBF_TABLELEVEL_FOXPRO,TDBF_TABLELEVEL_VISUALFOXPRO]) then // as well as resetting existing backlinks in any tablelevel
if (NewBackLink<>'') and
(not(Tablelevel in [TDBF_TABLELEVEL_FOXPRO,TDBF_TABLELEVEL_VISUALFOXPRO])) then
raise EDbfError.CreateFmt(STRING_FEATURE_NOT_SUPPORTED_THIS_TABLELEVEL, raise EDbfError.CreateFmt(STRING_FEATURE_NOT_SUPPORTED_THIS_TABLELEVEL,
[Tablelevel]); [Tablelevel]);
CheckInactive; CheckInactive;