diff options
| author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2011-02-28 15:55:11 +0000 |
|---|---|---|
| committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2011-02-28 15:55:11 +0000 |
| commit | 089b0921634dea3be0b4a011086dbe64e6c3017a (patch) | |
| tree | 8d742f407668364399c202c1e74f8bd750caf3b5 /packages/fcl-web/src/webdata/sqldbwebdata.pp | |
| parent | 39ec6101991a6f7c9392eed6c9289881369fb49e (diff) | |
| download | fpc-089b0921634dea3be0b4a011086dbe64e6c3017a.tar.gz | |
* GetNewID should be virtual so it can be overridden
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@17058 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fcl-web/src/webdata/sqldbwebdata.pp')
| -rw-r--r-- | packages/fcl-web/src/webdata/sqldbwebdata.pp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/fcl-web/src/webdata/sqldbwebdata.pp b/packages/fcl-web/src/webdata/sqldbwebdata.pp index 33b1d7f8e1..c706904971 100644 --- a/packages/fcl-web/src/webdata/sqldbwebdata.pp +++ b/packages/fcl-web/src/webdata/sqldbwebdata.pp @@ -44,7 +44,7 @@ Type Procedure DoApplyParams; override; Function SQLQuery : TSQLQuery; Function GetDataset : TDataset; override; - Function GetNewID : String; + Function GetNewID : String; virtual; Function IDFieldValue : String; override; procedure Notification(AComponent: TComponent; Operation: TOperation); override; Property SelectSQL : TStrings Index 0 Read GetS Write SetS; |