Hello, FPC developers' list.
For delphi compatibility TField.SetDataset should be virtual and placed
in the protected section. Please apply attached patch to correct this
and if not difficult, please apply into fixes.
I help to convert Fib+ library to FPC/Lazarus and this was one of the
problems we found.
Thanks.
--
Best regards,
Paul Ishenin.
Index: packages/fcl-db/src/base/db.pas
===================================================================
--- packages/fcl-db/src/base/db.pas (revision 11115)
+++ packages/fcl-db/src/base/db.pas (working copy)
@@ -299,7 +299,6 @@
Function GetIndex : longint;
procedure SetAlignment(const AValue: TAlignMent);
procedure SetIndex(const AValue: Integer);
- Procedure SetDataset(AValue : TDataset);
function GetDisplayText: String;
function GetEditText: String;
procedure SetEditText(const AValue: string);
@@ -353,6 +352,7 @@
procedure SetAsVariant(AValue: variant); virtual;
procedure SetAsString(const AValue: string); virtual;
procedure SetAsWideString(const aValue: WideString); virtual;
+ procedure SetDataset(AValue : TDataset); virtual;
procedure SetDataType(AValue: TFieldType);
procedure SetNewValue(const AValue: Variant);
procedure SetSize(AValue: Word); virtual;
_______________________________________________
fpc-devel maillist - [email protected]
http://lists.freepascal.org/mailman/listinfo/fpc-devel
