diff options
| author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2011-03-28 09:00:31 +0000 |
|---|---|---|
| committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2011-03-28 09:00:31 +0000 |
| commit | 00271ee13c47cfb53b3904fc959ef29e366ec8f4 (patch) | |
| tree | 3192a5e3813e111b42e8ed1b5a53b49dfd529759 /packages | |
| parent | 5a69e5bc0b3e8595c014c4920af7679a9b891375 (diff) | |
| download | fpc-00271ee13c47cfb53b3904fc959ef29e366ec8f4.tar.gz | |
* Fixed bug 19008
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@17199 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages')
| -rw-r--r-- | packages/fcl-db/src/base/fields.inc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/fcl-db/src/base/fields.inc b/packages/fcl-db/src/base/fields.inc index ccdda197b7..6aea141531 100644 --- a/packages/fcl-db/src/base/fields.inc +++ b/packages/fcl-db/src/base/fields.inc @@ -819,7 +819,7 @@ procedure TField.SetData(Buffer: Pointer; NativeFormat : Boolean); begin If Not Assigned(FDataset) then - EDatabaseError.CreateFmt(SNoDataset,[FieldName]); + DatabaseErrorFmt(SNoDataset,[FieldName]); FDataSet.SetFieldData(Self,Buffer, NativeFormat); end; |